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=SERIEUS 

TASWORD MSX - DE Lckstverwerker! 100 % 

Nedcrlandse vertaling en handle!ding, 64 Lekens per 
regel, dus u ziet op bet schcrm wat er op papier 
koniL * Diskversie ook op de cassette! cass f 95,00 

H S X — 6 4 PLUS — Mu met uitgebreide hand- 
lei ding en grote-Letter—routine ingebouwd. Werk in 
uw eigen prograrama’s met 64 i.p.v. 40 letters per 
regel, Voor disk en casseLLe. cass f 34,50 

ZES EDLfCATI EVE PR0GRAHHA 1 S 
Waarin het spel-element cen belangrijke rol speelt- 
HeL gaat over eon doolhof, een verfkanon of een 
vliegende schotel, maar ook over 'Qptellen en 
aftrekken 1 (1), 'Cijferend Verraenigvuldigen 1 (2), 

'Procenten* (3), 'Geld 1 (4), 1 Dee1sommen T (5), en 
heL 'Alfabet’ (6)- Prijs per stuk: cass f 34,50 

DRTE-IN— EEN - Driemaal edukatieve soft¬ 
ware op een (!) cassette: Aardrijkskunde (met grote 
kaart van Nederland), Kekenen en Tekenen. f 34,50 

R E D E K U N I) T G 0NTLEDEN - Niet mals 
edukatief programma* Het de theorie en meer dan 120 
oefen ingen over de hele reeks: van onderwerp t/m 
bijwoordelijke bepaling* Coed! cass f 59,00 


SOFTWARE 


F I L 0 T EL - Onze databank is 24 uur per dag 
bereikbaar voor iedere 1 Viditeller 1 (050—145174), 


BRIDGE - Nederlands bridgeprogramma, gemaakt 
door een bridgeleraar, speelt op behoorlijk nivo, 
maar is ook geschikt voor beginners* cass f 59,00 


II T S 0 F T C + + - Ja, de programmeertaal C ! 
Voldoet, m.u*v, floatingpoint aan UNIX. Programma f s 
in C runnen zonder de compiler en zijn ongewijzigd 
vaak bruikbaar op andere computers* disk f 185,(X) 


HIS0FT D E V P A C - Twee in een voor het 
werken met machinecode. GEN is de krachtige assem¬ 
bler. MON is de monitor en debugger. De diskversie 
werkt ook met HSX—DOS. disk f 185,00 cass f 89,00 


II I S 0 F T PASCAL - Pascal, ook voor HSX! 
M.b.v. deze compiler kunt u zelf programma 1 s in 
Pascal schrijven, en onafhankelijk van de compiler 
runnen. disk (ook USX—DOS) f 185,00 cass f 134,00 


BEST ELLEN - Onze prodakten zijn verkrijg- 
baar in de goede computerzaak, maar u kunt ze ook 
rechtstreeks bestellen: telefonisch (050-137746) of 
door storting v.h. bedrag + f 3,50 verz*k* op giro 
20792 t.n*v. Filosoft Postbus 1353 9701BJ Groningen 




HIER HAD UW ADVERTENTIE 

KUNNEN STAAN. 

BEL 020 - 32.74.64 ! 
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L Willemsteeg 12-14, 2801 WC Gouda 


Wij hebben voor elke MSX de 
juiste printer, o.a.: 

— Smith Corona Fastext 80 f 495,— 


Seikosha SP 800 


f 985,- 


- Brother M* 1109 (N.L.G.) . 7 795- 

Bel voor inlichtingen of vraag 
een Print-out! 

Printerkabels uit voorraad . . f 69,— 


Software: 


Superfile MSX, een pracht bestands- 
programma. Geheel zelf in te richten 
met ruime opslag en uitgebreide prin¬ 
ter- i nste 11 i n ge n. 

Zeer geschikt voor adressen, boeken, 
platen of katalogus ...... f 39 — 

Kasboek MSX, met maandtotalen en 
overzichten naar 100 rekeningen apart 
Zeer fraai. f 39 — 

Div. spelletjes, o.a.: 

Jet Set Willy . f 19,- 

Manic Miner . f 19,- 

Battle Ship .. f 19,— 


Bestellen d.m.v. vooruitbetaling op 
giro 47 27 958 t.n.v. Data-Skip, Gou¬ 
da. Of d.m.v. zenden van giro/euro- 
cheque. (U heeft uw bestelling 1 dag 
later in huis.) 


Onze winkel is de gehele week (be- 
halve maandag) geopend. 

Telefoon: 01820-20581 


Data-Skip 
L. Willemsteeg 10 
2801 WC Gouda 
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VOORWOORD 


Hier is dan alweer: Gids nummer 4. Ook weer keurig op tijd en -gezien de 
ervaring tot nu toe- zullen alle andere nummers ook op tijd verscnijnen. 

De listings worden nu met een matrix printer gemaakt zodat ook de grafische 
tekens verwerkt kunnen worden. De omslag is gedrukt op wat zwaarder papier zodat 
de kaft nu wat steviger is en langer in de nietjes blijft hangen. 

Verder gaat het goed met de Gids; het aantal abonnees groeit gestaag en de 
oplage hebben we alweer -met een paar duizend stuks- moeten verhogen. Er zijn 
nog teveel winkels snel uitverkocht en op een heleboel plaatsen is het blad nog 
niet verkrijgbaar. Gezien het geringe aantal retouren bij de verspreider zullen, 
in de toekomst, nog wel een paar verhogingen van de oplage volgen. We doen het 
rustig aan; elke uitgave wat meer, zodat we niet met 40 tot 50% retouren komen 
te zitten. 

Er wordt hard gewerkt (veel praten en rekenen) aan een manier om het blad te 
zetten. We willen dit ook in eigen hand houden en het ziet er naar uit dat, nog 
dit jaar, de teksten in dit blad keurig gezet zullen worden. We schrijven over 
computers dus een en ander zal dan ook geheel via de computer gaan geschieden. 


WAAR BLIJFT DE NIEUWE WERELDSTANDAARD? 

Er komen regel matig -en steeds vaker- klachten binnen dat sommige software op 
sommige computers niet wil draaien. Wij hebben daar tot nu toe nooit problemen 
mee gehad {wij gebruikten voorheen alleen de Goldstar) en hebben er, ter 
controle, dan ook maar eens een ander merk machine bijgekocht. 

Jammer, maar helaas; de klachten zijn gegrond. Op onze JVC kunnen we inderdaad 
niet alle (tape) software draaien (zie de software tests in dit nummer). 

Ook de computers van Philips, Spectra-video, Sony en Daewoo hebben zo af en toe 
problemen met de spelprogramma's. Zo draaien de spellen 'ALIEN 8' en 1 
KNIGHTLORE' ook niet op de Philips en de Spectravideo. Het spel 'The Heist' 

draait b.v. niet op de Sanyo; en zo zijn er nog veel meer. Er zijn al partijen 

software uit de handel genomen; maar voor de consument blijft dit erg vervelend. 

HELP !! 

Heel erg bont maken de computers van Toshiba en Mitsubishi het. Deze computers 
hebben zelfs problemen met de listings uit ons blad. Zo worden we overstroomd 
met telefoontjes dat, in het programma GOLDDIGGER, al deze machines een SYNTAX 
ERROR geven op regel 30300. Wie helpt deze groep MSX-ers??? Wie belt ons even de 
oplossing door van dit probleem, Wij weten hier echt geen raad mee. 

In het Engelse blad MSX Computing staat te lezen, dat voor de Toshiba sommige 

software zelfs herschreven zal worden1 

Al met al kunnen we -jammer genoeg- voorlopig nog niet van een wereldstandaard 
spreken. Wie nog een MSX computer moet aanschaffen kan -voorlopig- het beste de 
Goldstar nemen. Deze machine slikt alles wat er uitgebracht wordt. Het is zeker 
niet de mooiste en meest uitgebreide machine, maar dit apparaat werkt absoluut 
probleemloos! (Wel de originele Goldstar, want ook van dit merk schijnen de 
Engelse importmachines problemen te geven1) 

MSX-2. 

In ons eerste nummer kondigden we de MSX Plus aan. De fabrikanten noemen dit 

inmiddels allemaal de MSX 2 maar eigenlijk is het toch een MSX Plus. Gewoon een 

MSX 1 met een ingebouwde diskdrive en een nieuwe videochip. 

De ingebouwde diskdrive was er al bij de X'Press van Spectravideo; dit is dus 

helemaal niet zo bijzonder. Voor wie zuiver in de video kwaliteiten is 

geinteresseerd is dit een mooie machine. Uiteraard hebben deze apparaten nog wel 
wat leuke extraatjes maar het echte MSX 2 gebeuren moet nog komen. 
Waarschijnlijk komt Philips binnenkort alweer met een nieuwe machine en de 
echte toppers komen van Spectravideo. Afwachten dus. Ik mag hier verder niets 
over vertellen. Jammer he? 

Alfred Debels. 
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THE WALL 

HET SPEL 

Dit spelletje is een variant van het 
zeer bekende BREAKOUT. Voor diegenen die 
nog nooit iets over dit spel gehoord 
hebben komt bier de uitleg: 

Het doel van het spelletje is de muur 
(THE WALL) af te breken. Dit kan door 
het rondvliegende balletje steeds met 
het plankje op te vangen en terug te 
kaatsen. Dat heeft tot gevolg dat het 
balletje op de muur botst en er een 
steentje afbreekt. Met een beetje geluk 
is het mogelijk ora tegelijkertijd twee 
of meer steentjes af te breken. 

Het speciale tintje van deze versie is 
het volgende: 

Als men het balletje niet kan raken dan 
daalt de muur een stukje en krijgt men 
er een laag steentjes bij. Nadat dat 15 
maal is gebeurd, is het spelletje ten 
einde. Indien de speler de muur volledig 
weet af te breken is het spel ook 
afgelopen en krijgt de speler een 
welgemeend PR0FIC1AT. 

Het spel kan naar keuze met joystick of 
keyboard worden gespeeld. Er is een 
keuze uit twee raoeilijkheidsgraden. De 
eerste is (zoals gewoonlijk) de 

raakkelijkste en de tweede de 
raoeilijkste. Veel extra's, zoals b.v. 
een highscore, zijn niet ingebouwd om de 
snelheid van het spel te garanderen. 

HET PROGRAMMA 

Dit programma is een zogenaamde hybride; 
een BASIC programma met stukken 
MACHINETAAL. De schermopbouw en het 
einde zijn alleraaal in BASIC omdat deze 
stukken geen snelheid vereisen. 

Het lezen van de joystick, het besturen 
van het plankje en het laten dalen van 
de muur zijn in machinetaal geschreven. 
Met regel 250 wordt het machinetaal 

programma in het geheugen geplaatst. De 
DATA-regels van het machinetaal gedeelte 
worden steeds gevolgd door een assembler 
vertaling, zodat voor diegenen, die 
machinetaal beheersen, het erg eenvoudig 
is het programma te volgen. 

In het machinetaal gedeelte wordt 
regelmatig gebruik gemaakt van enkele 
BIOS subroutines. Dit zijn o.a. RDVRM, 
WRTVRM, LDIRMV, en LDIRVM. 

De oplettende lezer zal raerken dat er 5 
sprites zijn gedefinieerd. Twee sprites 
zijn voor de bal en het plankje, de 
andere dienen om het woord 'SCORE' te 

maken. Deze tekst -met sprites- is 

sneller te verwerken dan een tekst met 
letters. In het programma is ook een 
controle ingebouwd op de DATA- regels. 
Deze controle geeft geen waterdichte 

garantie, maar zal in de meeste gevallen 
de fouten wel lokaltseren. 

Ondergetekende wenst U veel speelgenot . 

Martin Buysse. 



10 9 ***#** *###*###******##*** 


20 THE WALL # 
30 ' * * 
40 ■’ * Martin Buysse * 
50 9 * Bt Sebastiaanstr 5 * 
60 '* 996B Bassevelde * 
70 '* BELGIE * 


80 '** ****** * * * * **# * ** * * *##* * 

90 VPOKE&H 1B04 ,0 s VPOKE&H 1B05,0 
100 CLEAR200,&HF2A2 

110 DEF USR1=&HF2DA:REM PLANKJE&BALLE 
TJE 

120 DEF U5R0=&HF350:REM PLANKJE 
130 REM 

140 REM BEGIN SCHERM 
150 REM 

160 COLOR 4,1,1sBCREEN3 

170 OPEN "grp:" AS#1:DEFINT A-Z 

180 DRAW"BM68,50":PRINT#1,"THE” 

190 COLOR 11 

200 DRAW *’ BM56, 100 ": PR I NT# 1, " WALL " 

210 FOR1=1 TO 3000:NEXT 
220 REM 

230 REM INLEZEN VAN M.TAAL DATA'S 
240 REM 

250 RESTORE 1060: FORI =&HF2A2T08tHF37F: 
READAS:POKEI,VAL("&H"+A*):PO=PO+VAL(" 
&H U +A$):NEXT 
260 REM 

270 REM KEUZE MENU 
280 REM 

290 COLOR 15,4,7:SCREEN0:WIDTH40:KEY 
OFF:LOCATES,5 

300 IF POO20917 THEN LOCATE 2,5: PR IN 
T"U HEBT EEN FOUT GEMAAKT BIJ HET 

INTIKKEN VAN DE DATA'S! !!!!!!!!!!! 

!":END:REM DATA KONTROLE 
310 INPUT"JOYSTICK {J/N}"$J* 

320 IF J$= " J "ORJ$= " j "THENP0KE&HF351,1 
330 LOCATE 5,10:INPUT"LEVEL 1 OF 2 "; 

J$ 

340 IF J$=" 1 "THEN POKE&HF302,&HB7:POK 
E&HF317, &HB7: P0KE&HF32C, &HB7:P0KE&HF3 
42, &HB7: P0KES<HF34E, 0 
350 REM 

360 REM BCHERM TEKENEN 
370 REM 

380 COLOR 15,1,13:SCREEN2,0 
390 RESTORE 440:FORI=0TO6 
400 READC 
410 FORT=0TO11 

420 LINE<T*16+4,I*8)-<T*16+18, 1*8+6) , 

C BF 

430 NEXTT,I 

440 DATA 12,4,13,6,2,11,14 
450 LINE <0,0) — (7,191),15,BF 
460 LINE C192,0) — (199,191),15,BF 
470 LINE(8,0)-(8,191),1 
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480 LINE(4,0)-(4,191),1 
490 LINE(191,0)-(191,191),1 
500 LINE(196,0)-(196,191),1 
510 REM 

520 REM SPRITE’S INLEZEN EN PLAATSEN 
530 REM 

540 RESTORE 580:FORI=0TO4:S$="" 

550 F0RT=1T08:READ A 

560 S$=S*+CHR$(A>:NEXT 

570 SPRITES(I)=5$s NEXT 

580 DATA 255,255,0,0,0,0,0,0 

590 DATA 3,3,0,0,0,0,0,0 

600 DATA 0,115,132,132,100,20,20,243 

610 DATA 0,153,37,37,37,37,37,153 

620 DATA 0,207,40,40,207,136,72,47 

630 PUT SPRITE0,<50,190),15,0 

640 PUT SPRITE2,<210,15),11' 

650 PUT SPRITES,(218,15),11 
660 PUT SPRITE4,(226,15),11 
670 ON SPRITE GOSUB 800 
680 SPRITE ON 

690 FORI=1TO50:X=USR(0)!X=USR1(0):NEX 
T 

700 REM 

710 REM HOOFDLUS 
720 REM 

730 DUMY=USR1(0) 

740 IF POI NT (VPEEK (?<H 1B05) +7, VPEEK (StH 
1B04))< >1 THEN 5C=SC+1s PAINT(VPEEK(&H 
lB05>+7, VPEEK (&H1B04) ) , 1 s P0KES<HF34E, 1 
:GOSUBB40 

750 IF PEEK (?<HF2D9) = 15THEN 920 
760 GOTO 730 
770 REM 

780 REM SPRITE BOTSING 
790 REM 

800 SPRITE OFF:P0KE&HF34F,0sP0KE&HF34 
E,0:VPOKE&H1B04,187:BEEP:SPRITE ON:RE 
TURN730 
810 REM 

820 REM SCORE OP HET SCHERM PLAATSEN 
830 REM 

840 LINE(242,45)—(210,30),1,BF 
850 X=USR(0) 

860 PRINT#1,SC 

870 IF VPEEK(&H1B04)<8THEN Q=Q+1:IF Q 

=12 THEN 920 

880 X=U5R1(0);RETURN 

890 REM 

900 REM EINDE 

910 REM 

920 COLOR 15,4,7:SCREEN0:LOCATES,5 
930 PRINT"Uw score is":SC 
940 IF Q=12THEN LOCATES,7:PRINT"Profi 
ciat u vernietigde de hele muurf":GOT 
O 960 

950 LOCATES,7sPRINT"Pech gehad! Meer 
oefenen-" 

960 LOCATES,10:PRINT"Wi1t u nogmaals 
spelen? {j/nJ":TIME=0 

970 IFTIME= >500THEN LOCATES,12:PRINT" 
Antwoord A.U.B.":IF INT(TIME/7)=TIME/ 
7 THEN BEEP 

980 I$=INKEYS;IF I*=""THEN 970 

990 IF IS=”j"DR I$=" J"THEN RUN 

1000 IF I$="n"OR IS=»N"THEN CLSsEND E 

LSE GOTO 970 

1010 REM 

1020 REM MACHINE TAAL DATA’S 
1030 REM 

1040 REM DE MUUR LATEN DALEN "MULADA" 
1050 REM 

1060 DATA 36,00 :REM LD(HL),00 

1070 DATA 21,00,00:REM LD HL,0000 
1080 DATA 01,00,17:REM LD BC,1700 
1090 DATA 11,00,DB:REM LD DEiD800 
1100 DATA CD,59,00:REM CALL 0059 
1110 DATA 21,00,DB:REM LD HL,D800 


11120 

DATA 

11 , 00 , 

01 

REM 

1130 

DATA 

01 , 00 , 

16 

REM 

1140 

DATA 

CD,5C, 

00 

REM 

1150 

DATA 

21 , 00 , 

20 

REM 

1160 

DATA 

01 , 00 , 

17 

REM 

1170 

DATA 

11 , 00 , 

BF 

REM 

1180 

DATA 

CD,59, 

00 

REM 

1190 

DATA 

21 , 00 ' 

BF 

REM 

1200 

DATA 

11 , 00 , 

21 

REM 

1210 

DATA 

01 , 00 , 

16 

REM 

1220 

DATA 

CD,5C, 

00 

REM 

1230 

DATA 

21,D9, 

F2 

REM 

1240 

DATA 

34 


REM 

1250 

DATA 

C9 


REM 

1260 

DATA 

00 


REM 

ler die verhoogt 
alt 

wordt 


LD DE,01 00 
LD BCj1600 
CALL 005C 
LD HL,2000 
LD BC,1700 
LD DE,BF00 
CALL 0059 
LD HL,BF00 
LD DE,2100 
LD BC,1600 
CALL 005C 
LD HL,F2D9 
INC (HL) 

RETURN 

Dit is sen tel 
als de muur da 


1270 REM 

1280 REM BESTURING BALLETJE " 
1290 REM 


1300 

DATA 

3A,4D, 

F3:REM 

1310 

DATA 

FE ,01 

: REM 

1320 

DATA 

CC,FB, 

F 2 :REM 

BROUTINE 

"BANRE" 


1330 

DATA 

FE, 00 

sREM 

1340 

DATA 

CC,0D, 

F3s REM 

BROUTINE 

"BANLI" 


1350 

DATA 

3A,4E, 

F3:REM 

1360 

DATA 

FE, 01 

: REM 

1370 

DATA 

CC,22, 

F3:REM 

BROUTINE 

"BANBE" 


1380 

DATA 

FE, 00 

sREM 

1390 

DATA 

CC,38, 

F3:REM 

BROUTINE 

"BANBO" 


1400 

DATA 

CD,50, 

F3:REM 

1410 

DATA 

C9 

sREM 

1420 

REM 



1430 

It 

REM BALLETJE NAAR 

1440 

REM 



1450 

DATA 

21,05, 

IB:REM 

1460 

DATA 

CD,4A, 

00:REM 

1470 

DATA 

FE, B 6 

: REM 

1480 

DATA 

2 B, 06 

: REM 

1490 

DATA 

3C 

: REM 

1500 

DATA 

3C 

: REM 

1510 

DATA 

CD,4D, 

00:REM 

1520 

DATA 

C9 

: REM 

1530 

DATA 

21,4D, 

F3s REM 

1540 

DATA 

35 

: REM 

1550 

DATA 

C9 

sREM 

1560 

REM 



1570 

REM BALLETJE NAAR 

1580 

REM 



1590 

DATA 

21,05, 

IB:REM 

1600 

DATA 

CD 5 4A f 

00:REM 

1610 

DATA 

FE, 04 

: REM 

1620 

DATA 

28,06 

: REM 

1630 

DATA 

3D' 

: REM 

1640 

DATA 

3D 

: REM 

1650 

DATA 

CD,4D, 

00 :REM 

1660 

DATA 

C9 

: REM 

1670 

DATA 

21,4D, 

F3:REM 

1680 

DATA 

34 

: REM 

1690 

DATA 

C9 

sREM 

1700 

REM 



1710 

II 

REM BALLETJE NAAR 

1720 

REM 



1730 

DATA 

21,04, 

IB:REM 

1740 

DATA 

CD,4A, 

00:REM 

1750 

DATA 

FE, BF 

: REM 

1760 

DATA 

28,06 

: REM 

1770 

DATA 

3C 

: REM 

1780 

DATA 

3C 

sREM 

1790 

DATA 

CD,4D, 

00:REM 

1800 

DATA 

C9 

: REM 

1810 

DATA 

21,4E, 

F3s REM 


LD A,(F34D) 

CP,01 

CALL Z,F 2 F 8 SU 
CP, 00 

CALL Z,F30D SU 

LD A,(F34E) 

CP,01 

CALL Z,F322 SU 
CP, 00 

CALL Z,F338 SU 

CALL Fc>50 
RETURN 

RECHTS "BANRE 


LD HL,1B05 
CALL 004A 
CP, B 6 
JR Z,06 
INC A 
INC A 
CALL 004D 
RETURN 
LD HL,F34D 
DEC (HL) 

RETURN 

LINKS "BANLI" 

LD HL,1B05 
CALL 004A 
CP, 04 
JR 2,06 
DEC A 
DEC A 

CALL 004D 
RETURN 
LD HL,F34D 
INC (HL) 

RETURN 

BENEDEN "BANBE 


LD HL,1B04 
CALL 004A 
CP, BF 
JR Z,06 
INC A 
INC A 
CALL 004D 
RETURN 
LD HL,F34E 
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1820 DATA C3,A2,F2:REM JP,F2A2 SPRING 
NAAR "MULADA" 

1830 REM 

1840 REM BALLETJE NAAR BOVEN "BANBO" 


1850 

REM 





1860 

DATA 

21,04, 

IB 

REM 

LD HL,1B04 

1870 

DATA 

CD,4A, 

00 

REM 

CALL 004A 

1880 

DATA 

FE, 01 


REM 

CP,01 

1890 

DATA 

28, 06 


REM 

JR Z, 06 

1900 

DATA 

3D 


REM 

DEC A 

1910 

DATA 

3D 


REM 

DEC A 

1920 

DATA 

CD,4D, 

00 

REM 

CALL 004D 

1930 

DATA 

C9 


REM 

RETURN 

1940 

DATA 

21,4E, 

F3 

REM 

LD HL,F34E 

1950 

DATA 

34 


REM 

INC (HL) 

1960 

DATA 

C9 


REM 

RETURN 

1970 

DATA 

01,01 


REM 

Dit zijn twee 

tellers die de richting 

bijhouden 

1980 

DATA 

00 

sREM 

NOP 

1990 

REM 





2000 

REM PLANKJE 

BESTURIN6 "PLABE" 

2010 

REM 





2020 

DATA 

3E, 00 

l 

4 

REM 

LD A,00 

2030 

DATA 

CD,D5, 

00 : 

REM 

CALL 005D 

2040 

DATA 

FE, 03 

i 

4 

: REM 

CP, 03 

2050 

DATA 

CC,60, 

F3: 

: REM 

CALL Z,F360 SU 

BROUTINE " 

PLNRE" 




2060 

DATA 

FE, 07 

i 

4 

s REM 

CP, 07 

2070 

DATA 

CC,70, 

F3: 

: REM 

CALL Z,F370 SU 

BROUTINE " 

'PLNLI “ 




2080 

DATA 

C9 

i 

4 

sREM 

RETURN 

2090 

REM 





2100 

REM PLANKJE 

NAAR RECHTS "PLNRE" 

2110 

REM 





2120 

DATA 

21 ,01, 

IB: 

sREM 

LD HL,1B01 

2130 

DATA 

CD,4A, 

00 : 

sREM 

CALL 004A 

2140 

DATA 

FE, B6 

■i 

sREM 

CP, B6 

2150 

DATA 

28,05 

i 

sREM 

JR Z,05 

2160 

DATA 

3C 

i 

sREM 

INC A 

2170 

DATA 

3C 


SREM 

INC A 

2180 

DATA 

CD,4D, 

00 : 

sREM 

CALL 004D 

2190 

DATA 

C9 


sREM 

RETURN 

2200 

REM 





2210 

REM PLANKJE 

NAAR LINKS "PLNLI" 

2220 

REM 





2230 

DATA 

21 ,01, 

IB 

sREM 

LD HL,1B01 

2240 

DATA 

CD,4A, 

00 

sREM 

CALL 004A 

2250 

DATA 

FE, 08 


sREM 

CP, 08 

2260 

DATA 

28,05 


sREM 

JR Z,05 

2270 

DATA 

3D' 


sREM 

DEC A 

2280 

DATA 

3D 


sREM 

DEC A 

2290 

DATA 

CD,4D, 

00 

sREM 

CALL 004D 

2300 

DATA 

C9 

1 

sREM 

RETURN 
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MSX-SIGN 


Dit programma is, zoals de naam reeds 
doet vermoeden, een tekenprogr amnia 
waarraee bovendien een tekening kan 
worden uitgeprint of kan worden gebruikt 
in een ander programma. Het uitprinten 
kan alleen op een matrix printer die MSX 
compatible is. 

(Red. Op de TREND JP-130 MSX, welke ook 
MSX compatible is, werkt dit programma 
niet zondermeer! Voor deze printer 
moeten wel degelijk aanpassingen worden 
gemaakt!). 

Om de tekening vergroot af te drukken is 
een 80 koloms printer wel noodzakelijk, 
De printer zal de tekening alleen met de 
kleur die U opgeeft afdrukken. Zo kan 
geraakkelijk een tekening in reversie 
afgedrukt worden door als kleur de 
achtergrondkleur in te geven, 

Het is zeer eenvoudig de tekening later 
in een programma te gebruiken door eerst 

de tekening op cassette te SAVEn. In het 
zelfgemaakte programma neemt men dan de 
DATA-regels (2450 tot en met 2540) op. 
Daarna plaatst men ook de volgende regel 
in het programma: 

10 FOR I=&HF018 TO &HF02F:READ d$: 

POKE I,VAL( M &H”+d$):NEXT I: 

DEF USRO&HF018 

Het lijnnummer mag eventueel veranderd 
worden. Nadien kan men de tekening 
steeds op het scherm laten verschijnen 
door middel van: 

SCREEN 2:X=USR(0) 

Zoals in het hoofdmenu te zien is kan, 
behalve het SAVEn en uitprinten van de 
tekening, nog veel meer. Er is een 
mogelijkheid om de tekening -van boven 
naar beneden- te laten scrollen, er 
kunnen cirkels worden getekend (waarvan 
de straal kan worden gewijzigd), cirkels 
en vlakken kunnen worden ingekleurd en 
het tekenen van rechthoeken is ook 
mogelijk door het opgeven van twee 
hoekpunten. Het eerste hoekpunt kan 
worden ingegeven met de spatiebalk, het 
tweede punt wordt bepaald door de plaats 

van de cursorpijl, op het moment dat de 
toets om de rechthoek te tekenen wordt 
ingedrukt. Om een ruit te tekenen dient 
dezelfde procedure als voor een 
rechthoek te worden gevolgd. Het tekenen 
wordt geactiveerd met de toets A en weer 
uitgezet met de toets Z. Om aan te geven 
dat tekenen is geactiveerd knippert het 
CAPS- lampje. 

Door op C te drukken wordt een 
kleurenkaart verkregen. Om een nieuwe 
kleur te krijgen dient de cursor op de 
gewenste kleur te worden geplaatst 
waarna met de SELECT toets de keuze 
definitief wordt. 


Onderaan het scherra staat eerst de X 
coordinaat, dan de Y coordinaat en 
vervolgens de kleur, straal en 
verplaatsingssnelheid van de cursorpijl. 

Indien het tekenen met de joystick niet 
is gewenst kan worden overgeschakeld op 
het toetsenbord door regel 340 en 900 
als volgt te wijzigen: 

ON STICK(O) GOSUB 680,690,700,710,720, 
730,740,750 

Veel tekenplezier! 

Martin Buysse 



«^Of> -tm kenen 

tAiYeureiil 7 M 

^irtcei n <S3kI> ISgSll ll^untj e 
+=straal veCfir-. verkl. 

U=scr-ol up Sfliprol down 

E=«is neeht-hoek is^punt^e ^ 

FI—sn. wrhogen Fjafa -g-n . yen 1 agen 

F6=T. in fflemory rr*T.(fit memory 

FS=T.saven F9*T. mlezen 

T=t-e fcsfc kaart 

SHIFT+CLR HQME=het scherm wissen 
CTRL+E—wis regel uoorbij cursor 
CTRL+U=wis regel . _^ ... 

TAB=cursor werspringt 4-0 positie^ 
HOHE=cursor naar linker booerthoek 

EaC=hoo-fd menu ___ -ecu i<r 

»RUK OP I>E SPAT IE EHi-r 



| # # # j * * * * * * * 



30 9 * * 

40 Martin Buysse % 

50 ** St.Sebastiaanstr . 5 * 

60 *% 9968 Bassevelde * 

70 ’ * BELGIE * 


80 * #**##*#)t^****#s|c##**###**# 

90 COLOR 4,1,1s SCREENS 

100 OPEN"grp:" AS #1:DEFINT A-Z 

110 DRAW"bm6S,50 1 ":PRINT#1,"MSX" 

120 COLOR11 

130 DRAW"bm56,100":PRINT#1,"SIGN" 

140 FORI—1 TO'3000:NEXT:CLOSE #1 

150 KEY OFF:P0KE64683!,255:OUT170 9 INP 

<170)AND191 

160 GOSUB 1700 

170 REM 

180 REM Machine taal inlezen 
190 REM 

200 CLEAR400,&HBE00 

210 DEF USR0==&HF000: DEF USR1—?<HF018: D 
EF USR2 s =&HF030: DEF USR3=&HF064 


220 FORI=S<HF000TO8<HF097 : RE ADA*: POKE I, 
VAL <"&H"+A*>:NEXT 


230 COLOR 1,15,15 

240 X s =0: Y=0: AC=15: C=1: S=5: SN=1 

250 SCREEN2 

260 SPRITE* < 0)=CHR* < 240)+CHR* < 224)+CH 
R* < 224)+CHR*(144)+CHR*(8)+CHR* < 4)+CHR 


* <2)+CHR* <1) 

270 OPEN "grp:"AS#1 

280 PUT SPRITE0,(X,Y>,C 

290 ON KEY GOSUB 1030,1040,,,,1080,10 

90,1130,1260 

300 KEY(1) ON:KEY(2) 0N:KEY<6) ON:KEY 
<7> ON:KEY <8) ON:KEY(9) ON 
310 REM 
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320 REM Hoofd Ills 
330 REM 

340 ON STICK(1)GOSUB680,690,700,710,7 
20,730,740,750 

350 IF P=1THEN LA=LA+1:IF INT(LA/5)=L 
A/5THEN OUT170,INP(170)X0R64 
360 I*=INKEY*:IF I*—" H THEN340 
370 IF I*="A"THEN F-l 

380 IF 1*=*' Z "THEN P=0: OUT170, INP (170) 
AND191 

390 IF I*=" ,, THENX3=X2: Y3=Y2: X2=X: Y2- 

Y:PSET(X, Y),C 

400 IF I*=”C"THEN880 

410 IF I*="L H THENLINE (X2, Y2) ~(X,Y) ,C 
420 IF I*='*R ,, THENLINE(X2, Y2)-(X, Y) ,C, 
B 

430 IF I*= M E , *THENLINE(X2, Y2)-(X, Y) , AC 
BF 

440 IF I*="D"THEN BOSUB1B40 

450 IF I*= M F"THEN GOSUB2000 

460 IF I*="B M THENLINE(X2,Y2)-(X,Y>,C, 

BF 

470 IF I*=CHR*(27)THEN T=1:GOSUB1660 
480 IF I*=CHR* (11) THENX= s 0: Y=0:6OSUB80 
0 

490 IF I*=CHR*(5)THENLINE(X,Y) — <255,Y 
+7) AC BF 

500* IF’I*=CHR*(21)THENLINE(0, Y) - (255, 
Y+7),AC,BF 

510 IF l*-CHR*(9)THENX=X+40:IFX>255TH 
ENX s =X-255:Y-Y+8:GOSUB790EL5EGOSUB800 
520 IF I*~' , K , 'THENPAINT(X,Y) ,C 
530 IF I*=CHR*(12)THEN CLS 
540 IF I*-"□"THEN PRESET (X,Y> 

550 IF I*=s" + "THENS=S+1: GOTO 1000 
560 IF I*="P"THEN GOSUB 1390 

570 IF I*s="B"THEN GOSUB 1650 

580 IF I*= I, U ,, THEN GOSUB 1640 

590 IF IS="T"THEN GOSUB 21B0 

600 IF I *= " ~"THENS^S-1: GOTO 1000 
610 IF I*="Q"THEN CIRCLE <X,Y),S,C 
620 IF I*="X"THEN CIRCLE(XiY),S,C: PAI 
NT < X,Y),C 

630 IF I*= n W"THEN CIRCLE(X,Y),S,ACsPA 
INT(X,Y),AC 
640 GOTO340 
650 REM 

660 REM Cursor besturings routine 
670 REM 

6 B0 Y=Y“SN:GOTO 760 

690 Y=Y—SNs X=X+SN:GOTO 760 

700 X^X+SN:GOTO 760 

710 Y^Y+SN:X-X+SN:GOTO 760 

720 Y=Y+SN:GOTO 760 

730 Y—Y+SNs X—X~SNs GOTO 760 

740 X=X-SN:GOTO 760 

750 X=X-SN:Y=Y-SN 

760 IF X >255THENX=255 

770 IF X<0THENX s= 0 

780 IF Y<0THENY=0 

790 IF Y>170THENY=170 

800 PUT SPRITE0,(X,Y),C 

810 LINE(0,184)-(70,191),AC,BF 

820 PRESET(0,1B4):PRINT#1,INT(X);INT( 

Y) 

830 IF P=1TH£N PSET <X,Y),C 
840 RETURN 
850 REM 

860 REM Kleuren kaart 
870 REM 

880 GOSUB 1080:CLS:PRESET(0,176):PRIN 
T#1,"Druk op de SELECT toets" 

890 FORI=0TO255STEP16:LINE <1 + 1,20)-(I 
+14,120),I/16,BF:NEXT 

900 * ON STICK(1)GOSUB680,690,700,710,7 
20,730,740,750 

910 I*=INKEY*:IF I*=CHR*(24)THEN C=IN 
T (X/16):GOTO 930 


920 GOTO900 

930 CLS:GOSUB1090 

940 LINE(80,184)-(105,191),AC,BF 
950 PRESET(82,184):PRINT#1,C 
960 GOTO630 
970 REM 

980 REM Enkele hulp routines 
990 REM 

1000 LINE(110,184)“(135,191),AC,BF 
1010 PRESET(112,184):PRINT# 1, S 
1020 GOT0340 
1030 SN=SN+.5:GOTO1050 
1040 SN=SN-„5 

1050 LINE(140,184)-(1B0,191),AC,BF 

1060 PRESET(142,184):PRINT#1,SN 

1070 RETURN 

1080 M=USR0(0):RETURN 

1090 M=USR1(0):RETURN 

1100 REM 

1110 REM Tekening saven op cassette 
1120 REM 

1130 X=USR(0):COLOR 15,4,7:SCREEN0 
1140 LOCATE 5,5:PRINT"tekening saven 
f j/n>?’ J 

1150 I*=INKEY*:IFI*-“"THEN1150 

1160 IFI*=”N M THEN 1220 

1170 IFI*< >"3"THEN1150 

1180 L0CATE2,10:INPUT"Tekening naam a 

ub <maK 6 karakters>";I* 

1190 IF LEN(I*)>6THEN1180 
1200 I$="cas["+I* 

1210 BBA VEI *, ?<HBE00 , ?<HEFFF 

1220 COLOR 1,15,15:SCREEN2:X=USR1(0): 

RETURN 

1230 REM 

1240 REM Tekening inlezen van cassett 
e 

1250 REM 

1260 X=USR(0):COLOR 15,4,7:SCREEN0 
1270 LOCATE 5,5:PRINT"Tefcening inleze 
n -Cj/n>?" 

1280 I*=INKEY*:IFI*=""THEN1280 

1290 IFI*^"N"THEN 1350 

1300 IFI *< > 11 J " THEN 1280 

1310 L0CATE2,10:INPUT"Tekening naam a 

ub <max 6 karakters>";I* 

1320 IF LEN(I*)>6THEN1310 
1330 I*="cas;"+I* 

1340 BLDADI* 

1350 COLOR 1,15,15:SCREEN2:X=USR1(0): 

RETURN 

1360 REM 

1370 REM Tekening uitprinten 
1380 REM 

1390 GOSUB1080:SCREEN0:COLOR C,AC,15 
1400 LOCATES,3:PRINT"Tekening uitprin 
ten{J/N>“ 

1410 I*= INKEY*: IF I*= ,, J ,t OR 1*='^" THE 
N 1420ELSE1410 

1420 IF I*—”N" THEN COLOR C,AC,15:SCR 

EEN 2 :GOSUB 1090:GOTO 340 

1430 LOCATES, 6 : INPUT "Wei ke kleur’^CC 

1440 LOCATES, 9: PRINT^Vergroot ■Ca/N>" 

1450 I*= INKEY*: IF I*= ,, J , 'OR I*=> ,, N ,, TH 

EN 1460 ELSE1450 

1460 IF I*= , *N" THEN 1480 

1470 LPRINTCHR*(14)5:LPRINTCHR*(27);" 

T03";:GOTO 1490 

1480’LPRINTCHR*(15);:LPRINTCHR*(27);" 
T 02 "; 

1490 SCREEN2:GOSUB1090 
1500 LINE(0,184)-(255,191),AC,BF 
1510 PRESET(0,184):PRINT#li"Even gedu 
Id aub." 

1520 Y=0:1=0:X=0 
1530 F0RI=1T0191 

1540 LPRINTCHR*(27) \ "S";"0256”; 

1550 FORX-0TO255 
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1560 P=PDINT(X , Y)sIF P=CC THEN LPRINT 
CHR* < 24) ;ELSE LPRINTCHR*< 0 > ; 

1570 IF INKEY*< >""THEN 1610 
1580 NEXT X 

1590 LPRINTCHR*(13):Y=Y+1 
1600 NEXT I 

1610 LINE<0, 184>'-<255, 191) ,AC,BF 
1620 FORI=0TO255:LPRINTCHR*(0)s NEXT: L 
PRINTCHR*(24) 

1630 X=0:Y-0:BOTO340 
1640 M-USR2<0):RETURN 
1650 M=USR3<0>:RETURN 
1660 X=USR(0) 

1670 REM 

1680 REM Hoof d menu 
1690 REM 

1700 COLOR 15,4,7s SCREEN0:WIDTH40 
1710 LOCATE 5,5s PRINT"Menu op de prin 
ter {j/n}" 

1720 I*=INKEY*:IF I*= n J"THEN MM=1:G0T 
01740 

1730 IF I*-"N"THEN MM=0 ELSE GOTO1720 
1740 CLSs RESTORE3000 s P0KE&HF3B1,25 
1750 FORI — 1T024 s READ L* 

1760 IF MM=1THEN LPRINTL* 

1770 PRINTL*: NEXT 

1780 I*=INKEY*:IF 1*0" "THEN 1780 
1790 IF TO0THEN 1800ELSE RETURN 
1800 COLOR 1,15,15:SCREEN2:X-USR1<0): 
RETURN 
1810 REM 

1820 REM Ruit tekenen 
1830 REM 

1840 IF Y=Y2THEN1B70 
1850 IF X=X2THEN1920 
I860 RETURN 

1870 IF X >X1THEN RR=(X-X2)/2sXX = X2 
1880 IF X 2 >XTHEN RR=<X2--X>/2sXX = X 
1890 PSET < XX,Y),C 
1900 DRAW"E=RRsF=RRsB=RRsH=RR 5 " 

1910 RETURN 

1920 IF Y>Y1THEN RR=(Y-Y2)/2:YY=Y2 
1930 IF Y2>YTHEN RR=<Y2-Y)/2:YY-Y 
1940 PSET< X,YY),C 
1950 DRAW"F=RR 5 G=RR$H=RR 5 E=RR!» 

1960 RETURN 
1970 REM 

1980 REM gekleurde ruit tekenen 
1990 REM 

2000 IF Y=Y2THEN2030 
2010 IF X=X2THEN2090 
2020 RETURN 

2030 IF X >X1THEN RR=(X-X2)/2:XX=X 2 
2040 IF X2>XTHEN RR™(X2—X>/2:XX=X 
2050 PSET(XX Y) C 

2060 DRAW"E=RR;F=RR;G=RR;H“RR;" 

2070 PAINT(X X +1, Y), C 
2080 RETURN 

2090 IF Y>Y1THEN RR=(Y-Y2)/2s YY=Y2 
2100 IF Y2>YTHEN RR=(Y2-Y)/2sYY=Y 
2110 PSET(X,YY),C 
2120 DRAW"F=RR 5 G=RR 5 H=RR;E=RR 5 " 

2130 PAINT(X,YY+1> , C 
2140 RETURN 
2150 REM 

2160 REM Tekstkaart 
2170 REM 

2180 M—USR(0)s COLOR15,4,7s SCREEN0s LOC 
ATE10,5 

2190 PRINT"Tekst aub, " 

2200 L0CATE2,10:INPUT"{niet 1 anger da 
n 256 karakters}"sTT* 

2210 LOCATES,15:PRINT"Vet gedrukt{j/n 
>?" 

2220 I*=INKEY*:IF I*=""THEN2220 
2230 COLORC,AC,15 s SCREEN 2 :M=U5R1(0 > 
2240 PRESET<X,Y)sPRINT#1,TT* 

2250 IF I*="J"ORI*= M j"THENPSET<X+l,Y> 


:PRINT#1,TT*s PSET(X+l,Y+l):PRINT#1,TT 
*s PSET(X,Y+l):PRINT#1 \ TT* 

2260 F'OKE&HFCAB, 255 s OUT 170, INP (170) AN 
D191:RETURN 
2270 REM 

2280 REM Machine taal routines 
2290 REM 

2300 REM Tekening in geheugen "TEKIG 


2310 REM 

2320 DATA 21,00,00:REM 
2330 DATA 01,00,17:REM 
2340 DATA 11,00,D8:REM 
2350 DATA C5 :REM 

2360 DATA CD,59,00:REM 
routine LDIRMV" 

2370 DATA 21,00,20s REM 
2380 DATA Cl' :REM 

2390 DATA U,00,BFsREM 
2400 DATA CD,59,00s REM 
routine LDIRMV" 

2410 DATA C9 :REM 

2420 REM 

2430 REM Tekening uit 
G" 

2440 REM 

2450 DATA 21,00,d8sREM 
2460 DATA 01,00,17s REM 
2470 DATA C5 sREM 

2480 DATA 11,00,00s REM 
2490 DATA CD,5C,00s REM 
routine L.DIRVM" 

2500 DATA 21,00,BF:REM 
2510 DATA Cl sREM 

2520 DATA 11,00,20:REM 
2530 DATA CD,5C,00s REM 
routine LDIRVM" 

2540 DATA C9 sREM 

2550 REM 

2560 REM Tekening naar 
"TEKBOS" 

2570 REM 

2580 DATA cd,00,F0;REM 
KIG routine" 

2590 DATA 2!,00,D9:REM 
2600 DATA 11,00,00:REM 
2610 DATA 01,00,16:REM 
2620 DATA CD,5C,00:REM 
routine LDIRVM" 


LD HL,&H0000 
LD BC,&H1700 
LD DE, S<HDB00 
PUSH BC 

CALL 0059 'Tom 
LD HL,&H2000 

pnp tip 

LD DE,?<HBF00 
CALL 0059 "rom 

RETURN 

geheugen "TEKU 


LD HL,&HD800 
LD BC, ?<H1800 
PUSH BC 
LD DE,&H0000 
CALL 005C "rom 

LD HL, ?<HBF00 
POP BC 

LD DE,&H2000 
CALL 005C "rom 

RETURN 

boven scrollen 


CALL F000 " TE 

LD HL,&HD900 
LD DE,&H0000 
LD BC,&H1600 
CALL 005C "rom 


2630 DATA 21,00,D8:REM 
2640 DATA 11,00,16:REM 
2650 DATA 01i00,01sREM 
2660 .DATA CD,5C,00s REM 
routine LDIRVM" 

2670 DATA 21,00,C0:REM 
2680 DATA 11,00,20:REM 
2690 DATA 01,00,16:REM 
2700 DATA CD,5C,00:REM 
routine LDIRVM" 

2710 DATA 21,00,BF:REM 
2720 DATA 11,00,36s REM 
2730 DATA 01,00,01s REM 
2740 DATA CDi5C,00sREM 
routine LDIRVM" 

2750 DATA C9 : REM 

2760 REM 

2770 REM Tekening naar 
en "TEKBES" 


LD HL,&HD800 
LD DE,&H1600 
LD BC,&H0100 
CALL 005C "rom 

LD HL,&HC000 
LD DE,&H2000 
LD BC,&H1600 
CALL 005C "rom 

LD HL, ?<HBF00 
LD DE!, ?tH3600 
LD BC, ?<H0100 
CALL 005C "rom 

RETURN 

beneden scroll 


2780 REM 

2790 DATA cd,00,10s REM CALL F000 TEKI 
G routine 

2800 DATA 21,00,d 8 :REM LD HL,&HD800 
2810 DATA 11,00,01: REM LD DE,8<H0100 
2B20 DATA 01,00,16:REM LD BC,&H1600 
2830 DATA CD,5C,00:REM CALL 005C "rom 
routine LDIRVM" 

2840 DATA 2 1,00,EE:REM LD HL,&HEE00 
2850 DATA 11,00, 00: REM LD DE,StH0000 
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LD BC,&H0100 


CALL 005C "rom 


LD HL,&HBF00 
LD DEi, &H2100 
LD BC,&H1600 
CALL 005C "rom 


REM 

REM 

REM 

REM 


LD HL,&HD500 
LD DE, &H2000 
LD BC,&H0100 
CALL 005C "rom 


REM RETURN 


Datas van het menu 


HOOFD MENU* 1 


n 


Z—st op 


R-recht 


L~1 ijn” 
K=inkle 


0=c: i r k e 


2860 DATA 01,00,01sREM 
2870 DATA CD,5C,00:REM 
routine LDIRVM" 

2880 DATA 21,00,BF:REM 
2890 DATA 11,00,21:REM 
2900 DATA 01,00,16:REM 
2910 DATA CD,5C,00:REM 
routine LDIRVM” 

2920 DATA 21,00,05 
2930 DATA 11,00,20 
2940 DATA 01,00,01 
2950 DATA CD,5C,00 
routine LDIRVM” 

2960 DATA C9 
2970 REM 
2980 REM 
2990 REM 
3000 DATA” 

3010 DATA” 

3020 DATA”A—aktiveer tekenen 
tekenen” 

3030 DATA”B=rechthoek (gekl) 
hoek ” 

3040 DATA"C—kleur kaart 
3050 DATA"W=wis cirkel 
ur en ” 

3060 DATA”P=uitprinten 
1” 

3070 DATA”X=cirkel (gekl) 
punt je" 

3080 DATA"+=:straal verqr. 

1 V6f k 1 p 11 

3090 DATA"U=scrol up 
d own 11 

3100 DATA”E=wis rechthoek 
untje" 

3110 DATA"D=rui t 
(gekl.)" 

3120 DATA"F1=sn.verhogen 
er1agen" 

3130 DATA"F6=T,in memory 
t memory" 

3140 DATA"F8=T.seven 
1ezen" 

3150 DATA”T=tek5t kaart" 

3160 DATA" 

3170 DATA"SHIFT+CLR H0ME=het 
issen” 

3180 DATA’^TRL+E^wi s regel voorbi j cu 
rsor " 

3190 DATA"CTRL+U”wis regel" 

3200 DATA"TAB-cursor verspringt 40 po 
si ties" 

3210 DATA"HOME=cursor naar linker bov 
enhoek" 

3220 DAT A " ESC—h oo-f d menu" 

3230 DATA” 


spatie= 


-=5tr 


S=scrol 


Q=wis p 


F-ruit 


=sn. v 


F7=T.ui 


F9=T-in 


m w 


DRUK DP DE 


SPATIE BALK" 


Kegel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


10 - 
20 - 
30 - 
40 - 
50 - 
60 - 


5B 

SB 

SB 

SB 

SB 

5B 

SB 

SB 


Regel 

Regel 

Regel 

Regel 

Regel 



B0 - 
90 - 129 
100 - 19 
110 - 56 
120 - 215 
130 - 154 
140 - 196 
150 - 89 
160 - 101 
170 - 0 

180 - 
190 - 
200 - 
210 - 160 
220 - 56 


0 
0 
53 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 



Regel 


230 - 131 
240 - 162 
250 - 216 
260 - 210 
270 - 96 
280 - 116 
290 - 0 
300 - 149 


0 

0 

0 

B2 

52 

10 


310 - 
320 - 
330 - 
340 - 
350 - 
360 - 
370 - 215 
3B0 - 7 

390 - 58 
400 - 233 
410 - 65 
420 - 181 
430 - 47 
440 - 91 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


450 - 253 
460 - 235 
470 - 189 
4B0 - 196 
490 - 253 
500 - 196 
510 - 166 
520 - 204 
530 - 161 
540 - 167 
550 - 196 
560 - 195 
570 - 203 
580 - 195 
590 - 224 
600 - 199 
610 - 108 
620 - 11 
630 - 140 
640 - 236 
650 - 0 
660 - 0 



Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 



Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 



Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

7B0 

790 

800 

BIO 

B20 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 


0 

31 

138 

28 

137 
30 

138 

29 
160 

46 

54 
56 

134 
116 

250 
218 
117 
142 

0 

0 

0 

55 
200 

82 

152 

30 
186 
107 
215 

15 

0 

0 

0 

167 

5 

236 

190 

208 

242 
113 
142 

84 

85 
0 
0 
0 

80 

47 
23 
73 

206 

161 

135 
lit 
89 
47 

0 

0 

0 

80 

7 

154 

204 

81 

161 

10 

HI 

60 

47 
0 
0 
0 

59 

163 

69 

96 

48 
122 
163 
142 

251 
51 

243 
179 

49 
110 


Regel: 1530 - 115 
Regel: 1540 - 6 
Regel: 1550 - 193 
Regel: 1560 - 205 
Regel: 1570 - 17 
Regel: 1580 - 251 
Regel: 1590 - 125 
Regel: 1600 - 236 
Regel: 1610 - 179 
Regel: 1620 - 33 
Regel: 1630 - 17 
Regel: 1640 - 86 
Regel: 1650 - 87 
Regel: 1660 - 134 
Regel: 1670 - 0 
Regel: 1680 - 0 
Regel: 1690 - 0 
Regel: 1700 - 161 
Regel: 1710 - 31 
Regel: 1720 - 79 
Regel: 1730 - 157 
Regel: 1740 - 12 
Regel: 1750 - 29 
Regel: 1760 - 77 
Regel: 1770 - 190 

Regel: 1780 - 222 
Regel: 1790 - 142 
Regel: 1800 - 47 
Regel: 1B10 - 0 
Regel: 1B20 - 0 
Regel: 1830 - 0 
Regel: 1B40 - 187 
Regel: 1B50 - 235 
Regel: 1860 - 142 
Regel: 1870 - 150 
Regel: 1880 - 101 
Regel: 1890 - 183 
Regel: 1900 - 140 
Regel: 1910 - 142 
Regel: 1920 - 157 
Regel: 1930 - 108 
Regel: 1940 - 184 
Regel: 1950 - 140 
Regel: 1960 - 142 
Regel: 1970 - 0 
Regel: 1980 - 0 
Regel: 1990 - 0 
Regel; 2000 - 91 
Regel: 2010 - 150 
Reset: 2020 - 142 
Regel: 2030 - 150 
Regel: 2040 - 101 
Regel: 2050 - 183 
Regel: 2060 - 140 
Regel: 2070 - 183 
Regel: 2080 - 142 
Regel: 2090 - 157 
Regel: 2100 - 108 
Regel: 2110 - 184 
Regel: 2120 - 140 
Regel: 2130 - 184 
Regel: 2140 - 142 
Regel: 2150 - 0 
Regel: 2160 - 0 
Regel: 2170 - 0 
Regel: 2180 - 146 
Regel: 2190 - 102 
Regel: 2200 - 115 
Regel: 2210 - 202 
Regel: 2220 - 105 
Regel: 2230 - 211 
Regel: 2240 - 233 
Regel: 2250 - 16B 
Regel: 2260 - 101 
Regel: 2270 - 0 
Regel: 2280 - 0 
Regel: 2290 - 0 
Regel: 2300 - 0 
Regel: 2310 - 0 
Regel: 2320 - 89 
Regel: 2330 - 95 
Regel: 2340 - 116 
Regel: 2350 - 22 
Regel: 2360 - 139 
Regel: 2370 - 91 
Regel: 2380 - 18 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 



Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 



Regel 
Regel: 
Totaal: 


2390 - 12B 
2400 - 139 
2410 - 26 
2420 - 0 

2430 - 0 

2440 - 0 

2450 - 149 
2460 - 95 
2470 - 22 
2480 - 88 
2490 - 149 
2500 - 129 
2510 - 18 
2520 - 90 
2530 - 149 
2540 - 26 
2550 - 0 

2560 - 0 

2570 - '0 
2580 - 211 
2590 - 118 
2600 - 88 
2610 - 94 
2620 - 149 
2630 - 117 
2640 - 95 
2650 - 88 
2660 - 149 
2670 - 108 
2680 - 90 
2690 - 94 
2700 - 149 
2710 - 129 
2720 - 97 
2730 - 88 
2740 - 149 
2750 - 26 
2760 - 0 

2770 - 0 

2780 - 0 

2790 - 243 
2800 - 149 
2810 - B9 
2820 - 94 
2830 - 149 
2840 - 131 
2850 - 88 
2860 - 88 
2870 - 149 
2880 - 129 
2890 - 91 
2900 - 94 
2910 - 149 
2920 - 114 
2930 - 90 
2940 - 88 
2950 - 149 
2960 - 26 
2970 - 0 

2980 - 0 

2990 - 0 

3000 - 45 
3010 - 200 
3020 - 82 
3030 - 164 
3040 - 180 
3050 - 15B 
3060 - 173 
3070 - 228 
3080 - 46 
3090 - 77 
3100 - 177 
3110 - 86 
3120 - 193 
3130 - 154 
3140 - 149 
3150 - 183 
3160 - 72 
3170 - 116 
3180 - 5 

3190 - 60 
3200 - 2 

3210 - 20 
3220 - 197 
3230 - 134 
32760 
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FUNKTIETOETSEN VULLEN 

U weet waarschijnlijk dat het vullen van 
de funktietoetsen, in BASIC, met het 
commando KEY gebeurt. 

KEY l,"LIST" vult funktietoets 1 met 
LIST. Een karakter dat binnen de 
aanhalingstekens niet gebruikt kan 
worden is het aanhallngsteken zelf. We 
kunnen aanhalingstekens echter vervangen 
door CHR$(34). We geven bijvoorbeeld 
funktietoets F2 de tekst LOAD ,, CAS:” door 
in te typen: 

KEY 2,"LOAD"+CHR$(34)+"CAS:"+CHR$(34) 

RETURN voeren we in met CHR$(13). 
Sluiten we een funktietoets- string 
hiermee af, dan wordt de funktie bij het 
indrukken van de funktietoets ook direkt 
uitgevoerd. Funktietoets 3 krijgt de 
inhoud RENUM RETURN door in te typen; 

KEY 3,"RENUM"+CHR$(13) 

De maximale lengte van een funktietoets- 
string is 16 tekens. Het scherm kunnen 
we schoonmaken met "CLS"+CHR$(13). Dit 
neemt 4 posities in de string in. Het is 
echter te vervangen door CHR$(12), wat 
slechts 1 positie in beslag neemt en 
hetzelfde effect heeft. 

Er zijn commando's die altijd een aantal 
cijfers achter zich hebben zoals SCREEN 
(0,1,2,3) en WIDTH (meestal 
29,32,37,40). We kunnen natuurlijk 
alleen WIDTH in de funktietoets zetten 
en zelf de cijfers er achteraan typen, 
gevolgd door RETURN. Handiger is de 
volgende oplossing: 

KEY 4,CHR$(2)+CHR$(18)+"WIDTH"+CHR$(13) 

U typt de cijfers, die achter het WIDTH 
commando horen, in en drukt op F4. 
Automatisch gaat de cursor naar het 
eerste cijfer, insert het woord WIDTH, 
zodat er WIDTH nn staat (nn = ingetypte 
cijfers) en er wordt een RETURN gegeven. 


CHR$- waarden, die bij het vullen van 
een funktietoets handig zijn, zijn in 
onderstaande tabel opgenoraen met hun 
betekenis erachter. 


CHR$ Funktie 

2 Cursor terug naar vorige woord. 

3 RETURN, maar zonder dat regel 
wordt opgenomen. 

5 Wis alles rechts van cursor. 

6 Cursor naar volgende woord. 

7 BEEP 

8 BS (back-space toets) 

9 TAB 

11 HOME (cursor naar linksboven) 

12 CLS (scherm schoonmaken) 

13 RETURN 

14 Cursor naar eind van de regel. 

18 INS (Insert toets) 

21 Wis regel waarop de cursor staat. 
24 SELECT 

27 ESC 

28 Cursor rechts. 

29 Cursor links 

30 Cursor omhoog 

31 Cursor omlaag 

34 Aanhalingsteken (") 

127 DEL (Delete toets) 


KEY 5,CHR$(2)+CHR$(18)+"SCREEN"+CHR$(13) 

Typt U: 1 F5 in, dan krijgt U SCREEN1. 

Nu volgen nog enkele voorbeelden van 
funktietoets- inhouden, waarbij de 
werking aan de hand van de tabel, of 
door proberen, kan worden nagegaan. 

KEY 6,CHR$(21)+CHR$(13) 

KEY 7,CHR$(5)+CHR$(3) 

KEY 8,"BL0AD"+CHR$f34)+"CAS:"+CHR$(34)+ 

",R"+CHR$(13) 

KEY 9,"CHR$( )"+CHR$(29)+CHR$(29)+ 
CHR$(29) 

I 

Maar de beste toepassingen verzint U 
natuurlijk zelf! 

Veel succes ermee. 


Beeldscherm; WIDTH 36 


10 ? Twintig Funktietoetsen 

20 9 ==== ss == s= ===== asassss=!a == : ~ 

30 ? 

40 ' Door: Marc Spierenburg 

50 *' 

60 51 Met deze routine kunt U kiezen 

70 ? uit twee sets voor de inhoud v 

an 

80 ? de i unktietoetsen. 

90 • 

100 ? Dit kiezen gebeurt met de 3ELE 
CT 

110 * toets: 

120 * SELECT => eerste set 

130 > SHIFT+SELECT = > tweede set 

140 

150 11 De routine start U met 
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170 7 

180 ? Door regel 600 t/m 690 aan te 
190 * passen kunt U de 1nhoud van de 
200 ? eerste set. vastleggen. De twee 
de 

210 ’ set is de standaardset (color, 
220 5 auto enz.> 

230 ? 

240 * Handige chrfc-waarden bij het v 
ul~ 

250 * len van + unktietoetsen: 

260 ? 

270 * chr$(12> = els 
280 * chr$<13) = return 
290 * chr*(34) = " 

300 ’ 


320 ’ 

330 RESTORE:T=0 

340 FOR 1 = 1 TO 50 

350 READ A$: A=VAL("&H"+A$> 

360 T=T+As NEXT 

370 IF T< >5640 THEN PRINT”FOUT IN RE 
BEL 860 T/M 900”:STOP 
380 51 
390 T=0 

400 FOR 1=1 TO 54 

410 READ A$:A=VAL("&H"+A*) 

420 T=T+A:NEXT 

430 IF TO7303 THEN PRINT”FOUT IN RE 
GEL 910 T/M 960":STOP 
440 ’ 

450 RESTORE 

460 FOR I=&HE700 TD &HE767 
470 READ A$:A=9AL (”S<H"+A$) 

480 POKE I,A:NEXT 

490 DEFUSR=&HE700:A=UBR(0) 

500 ’ 

510 CLS:KEYON 

520 PRINT:PRINT"De data is in het ge 
heuaen aezet 11 

530 PRINT:PRINT"Druk nu op SELECT" 
540 DEFUSR=342:A=USR(0>. 

550 IF INKEY$OCHR*(&H18> THEN 550 
590 ? 

600 KEYi, "keyoF-f "+CHR*<13) 

610 KEY2,"motor"+CHR$(13) 

620 KEY3,"renum " 

630 KEY4,CHRS(12)+"1oad"+CHR*(34)+"c 
as:"+CHR*< 34 > +",r"+CHR*(13) 

640 KEYS, CHR$ (12) + "b 1 oad " +CHR$ (34) + *' 
cas:"+CHR$(34)+",r**+CHR$(13) 

650 KEY6, " k eyon"+CHR$(13) 

660 KEY7, "de-f usr=S<H" 

670 KEYS,"?usr(“ 

680 KEY9,”screen0 H +CHR*(13) 

690 KEY10,” ?f r e < q)"+CHR$(13) 

700 ’ 

710 KEYON:CLS . 

720 PRINT;PRINT"Zet nu de cassettere 
corder klaar" 

730 PRINT"om te saven" 

740 PRINT:PRINT"Druk op SHIFT+SELECT 

If 

750 A=USR<0> 

760 IF INKEY*= ,,M THEN 760 

770 PRINT:PRINT"De standaardset is w 

ppr wpr crhpnpn 

780 PRINT:PRINT"De door U op regel 6 
00-690 inge-" 

790 PRINT"voerde Funktietoets inhoud 
wordt" 

800 PRINT"meegesaved." 

810 PRINT:PRINT"Start de routine voo 
rtaan met:" 


820 
• H a 

830 

840 

850 

860 

3E 

870 

C9 

880 

03 

890 

41 

900 

00 

910 

C9 

920 

32 

930 

F8 

940 

00 

950 

23 

960 

970 


PR I NT; PR I NT '* B1 oad " ; CHR$ (34) ; "cas 
CHR*(34>;",r" 

BSAVE "FUNKTS" , &HE700, &HE806 
END 


DATA DD,21,9F,FD,3E,14,DD,77,01, 
DATA E7,DD,77,02,3E,C3,DD,77,00, 
DATA F5,3E,07,CD,41,01,CB,77,28, 
DATA F1,C9,00,CD,CF,00,3E,06,CD, 
DATA 01,CB,47,28,0F,3A,67,E7,FE, 
DATA CC,4A,E7,3E,01,32,67,E7,FI, 
DATA 3A,67,E7,FE,01,CC,4A,E7,97, 
DATA 67,E7,F1,C9,06,A0,DD,21,7F, 
DATA FD,21,68,E7,DD,56,00,FD,5E, 
DATA DD,73,00,FD,72,00,DD,23,FD, 
DATA 10,EE,C9,00 



Door: Peter v.d. Aar 










































































































































































































































































































GEBRUIKSAANWIJZING VOOR HET PROGRAMMA 
'TAFELS': 

Eerst een tiktip: regel 130 schakelt de 
funktLetoetsen en de stoptoets ait, 
bovendien wordt de computer hier geat- 

tendeerd op de foutafhandelingsroutine. 
Dit kan lastig zijn bij eventueel tus- 
sentljds bekijken van het programma. 
Wellicht Is het daarom verstandig deze 
regel als laatste in te tikken. 

Als het programma is ingetikt, zet het 

dan eerst even op cassette (zeker wan- 
neer regel 130 al ingetikt is), want het 
programma is, als het eenmaal loopt op 
geen enkele wijze te stoppen. 

Het programma is een tafeloverhoorpro- 
gramma, dat uitgaat van een 'leerkracht' 
en een of meer 'leerlingen'. Die termen 
worden dan ook in het programma ge- 
bruikt. 

Voordat de eerste 'leerling' begint, 
moet de 'leerkracht' enkele gegevens 
invoeren. De computer vraagt om het 
aantal leerlingen, tot en met welke 

tafel overhoord moet worden, het aantal 
sommen per leerling en hoe lang deze 
leerling over die sommen mag doen. 

Als deze gegevens verstrekt zijn, worden 
ze op het beeldscherra herhaald en kan er 
eventueel verbeterd worden. Als de leer¬ 
kracht meldt, dat alle gegevens juist 
zijn, krijgt hij een stukje tekst te 
zien, waaruit blijkt dat hij/zij het 
programma voortijdig kan afbreken (als 
er minder leerlingen zijn dan gepland) 
door voordat een volgende leerling zou 
beginnen op funktietoets 1 te drukken. 

Na een druk op de knop 'select' kan de 
eerste leerling aantreden. De naam wordt 
gevraagd, waarna een spinneweb wordt 
getekend en een torenklokachtig geluid 
klinkt. Hierna wordt de leerling welkom 
geheten en kan hij/zij sommen gaan ma- 
ken. 

Als een antwoord goed is, verschijnt het 
woord 'PRIMA' in het beeId (waarbij de 
letters van alle kanten komen aanschui- 
ven) en klinkt er een muziekje. Is het 
antwoord fout, dan klinkt er een knal, 
gevolgd door aanhoudende 'klapjes'. Het 
juiste antwoord wordt getoond. Na een 
druk op 'select' stopt het geluid en 
komt de volgende som. Als het door de 
leerkracht gewenste aantal sommen ge- 
maakt is, wordt dit de leerling gemeld. 
Hij/zij krijgt dan te zien hoeveel. som¬ 
men er gemaakt zijn en hoeveel er daar- 
van goed waren. Ook als de ingestelde 
tijd verstreken is, wordt dit gemeld met 
het bereikte resultaat. Hierna wordt 
gemeld, dat de volgende leerling geroe- 
pen kan worden, waarna het geheel zich 
herhaald. 

Als de laatste leerling geweest is, 
wordt gemeld dat de leerkracht ('juf/ 
mees') geroepen moet worden, waarna deze 
via het codewoord de uitslag van alle 
leerlingen kan verkrijgen. Het standaard 
ingebrachte codewoord is 'uitslag', maar 
dit woord is natuurlijk te wijzigen (zie 
onder de beschrijving van dit program¬ 
ma). Het codewoord wordt niet getoond op 


het scherm, terwijl het ingetikt wordt, 
zodat eventueel meekijkende leerlingen 
niet te weten komen wat het codewoord 
is. 

Na de uitslag bekeken te hebben, kan de 
leerkracht op 'select' drukken. Hierna 
kan de uitslag eventueel nogmaals beke¬ 
ken worden. Dan wordt geinformeerd of er 
nog meer leerlingen met het programma 
moeten werken. Als het antwoord hier 
'ja' is, start het programma geheel 
opnieuw. Wordt er 'nee' geantwoord, dan 
volgt er een reset. 

Veel plezier. 

PETER VAN DER AAR. 

BESCHRIJVING VAN HET PROGRAMMA 'TAFELS'. 


Het hoofdprogramma werkt met een aantal 
geneste lussen, waaruit op een paar 
extra manieren te ontsnappen valt. Ver- 
der wordt er vanuit het hoofdprogramma 
steeds naar de subroutines gesprongen. 
Hieronder in het kort de beschrijving 
van het gehele programma: 


Regel 130 schakelt de funktietoetsen en 
de stoptoets uit (poke &HFBB1,1) en er 
wordt verwezen naar de foutafhandelings¬ 
routine. 

In regel 170 wordt het spinneweb gedi- 
mensioneerd. Dat lijkt een vreemde 
plaats, maar dat moet hier gebeuren in 
verband met de fornextlussen verderop. 
In de inleiding (regel 200 en verder) 
wordt een aantal variabelen ingevoerd. 

Op regel 480 begint het hoofdprogramma 
met de 'leerlingenlus'. Hieruit is al- 
leen via de fl toets te ontsnappen (zie 
de subroutine op regel 2100 en verder). 
T is de teller voor het juiste aantal 
antwoorden. 

In regel 510/520 wordt de toetsenbord- 
buffer leeggemaakt. 

Regel 530/540 schakelt een eventuele 
CAPS-stand uit. 

Regel 590 en verder maakt van de eerste 
letter van de naam van de leerling een 
hoofdletter. 

De regels 650 en verder zijn een aardig- 
heidje. Ze hebben met de loop van het 
programma niets te maken. Er wordt 'Hoi' 
op het scherm gezet, er klinkt klokgelui 
en een 'spinneweb' wordt getekend (met 
dank aan A.C.J.Groeneveld). 

Regel 780/790 schakelt het geluid uit. 
Regel 850 en verder tekent een poesje en 
geeft een korte uitleg. De schijnbaar 
zinloze Random in regel 990 zorgt er- 
voor, dat niet steeds dezelfde getallen 
gegenereerd worden, doordat de ti.id 
voordat de select-knop wordt ingedrukt, 
meespeelt. 

Regel 1040 leest de sprites in via de 
subroutine• 

Op regel 1080 begint de 'sommenlus'. 
Hieruit is alleen te ontsnappen door te 
lang bezig te zijn (zie regel 1090) of 
uiteraard als het opgegeven aantal som¬ 
men gemaakt is (regel 1110) 

Regel 1120 genereert een heel positief 
getal onder de 11 (voor het eerste getal 
van de verraenigvuldig-som) 

Regel 1130 genereert een 
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getal tot en met bet opgegeven maximum. 
Regel 1140 zet de som op bet scherra, 
waarna (regel 1260) naar de invoersub¬ 
routine wordt gesprongen. 

Regel 1280 maakt van de ingevoerde 
string een numeriek. 

In regel 1290 wordt gekeken of naar de 
subroutine "goed' (regel 2280 e.v.) of 
naar de subroutine "fout" (regel 2880 
e.v.) moet worden gesprongen. 

Op regel 1340 e.v. wordt afscbeid geno- 
men van de leerling en krijgt hij/zij 
bet eigen resultaat te zien. 

In regel 1480 e.v. wordt via 'select" 
naar de volgende leerling of de leer- 
kracbt verwezen. 

Regel 1660 e.v. zorgt voor bet einde van 
bet programma. Het codewoord is 'uit- 
slag". Als je dit codewoord wilt veran- 
deren, moet je de eerste letter van je 
eigen codewoord in regel 1690 zetten 
(dit in verband met bet transparent 
maken van de tekst) en in regel 1710 de 
rest van het codewoord. 

Via een for-next lus geven de regels 
1720 e.v. de gedimensioneerde namen en 
uitslagen. De rest spreekt voor zich. 
Regel 2060 zorgt voor een reset. 

Regel 2100 e.v. is de invoer-routine 

voor de naam. De invoer-routine is bij- 
zonder kracbtig. Zo worden alle niet- 
gewenste toetsen uitgescbakeld. In dit 
geval werken alleen de letters, de spa- 
tie en bet streepje. Cijfers, tekens, 
cursortoetsen en dergelijke doen niets. 
Tevens wordt de lengte van de invoer 
beperkt (bier tot twaalf). 

Regel 2190 en verder is de invoerroutine 
voor de uitkomst. Hier gebeurt iets 
dergelijks. De invoerlengte is bier 4 
(grootste uitkomst is immers 10 x 100 = 

1000, dus vier cijfers). Alleen de cij- 
fertoetsen reageren bier. De rest is 
uitgescbakeld. 

Regel 2280 e.v.: invoerroutine "goed". 
De teller wordt met 1 verboogd en de 
sprites worden -met een muziekje- op het 
scherm gezet. De regels 2740 en verder 
maken de sprites weer onzichtbaar. 

Regel 2880 en verder is de foute ant- 
woord-routine. Spreekt dacbt ik voor 
zich, evenals de subroutine 'tijd is om' 
(regel 3150 e.v.) en de foutafhande- 

lingsroutine (regel 3340 e.v.). Geheel 
onderaan (regel 3480 e.v.) vinden we de 
prima-sprit es._ 



Beeldscherm: WIDTH 36 


ffl ® <D ® ® ID ® ® ® ® CD ®® ® Q> Q> ® d> ® ® ® ® ® © ® 
® ® 

m tafels overtiorert ® 

a> ® 

a> door Peter vd Aar ® 

at a> 

® (c) 1986 MSX-gids ® 

at a> 

<d ® ® at a> a> at at ® ® a> a>at a) ® at ® ® od to a> at at a> ® 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 ' 

110 ' 

120 ’ 

130 CLEAR500: KEYOFF : CLB: SCREEN0: COLO 
R15,4,4: WIDTH37: POKE&HFBB 1,1s KEY 1, " " 
:KEY2, " 11 s KEY3, " ":KEY4, " ":KEY5, " " s KEY 
6, " ":KEY7, " ": KEYS, ,M, :KEY9 J “ ":KEY10, " 
"j ONERRORGOTO3340' 

140 ’ 

150 5 Spinne-web dimensionering 

160 ? 

170 BP”15 
180 D I MA(BP,1) 

190 
200 
210 




*** Inieiding 


LOCATE0,0,0 
230 PRINT"Dit programma overhoort de 
ta-fels van vermenigvuldiging." 
240 PRINT"Voordat de eerste leerling 
begint, moet de leerkracht enkele 
gegevens invoeren." 

250 PRINTsPRINT:PRINT" 1) Hoeveel 1 
eerlingen gaan er nu met dit 

programma werken? (maxima 

al 20 ) " 58 INPUTC 

260 IFC<1ORC >20ORC< >INT(C)THENPRINT" 
Dat kan niet !":GGTO250 
270 DIMC$ < C) ,BS(C),B < C) 

280 PRINT:PRINT" 2) Tot en met welk 
e tat el moet overhoord word 

en?":PRINT" (maximaal 100) ";sIN 

PUTD 

290 IFD<0ORD>100ORD<>INT(D)THENPRINT 
"Dat kan niet !":GOTO2B0 
300 PRINTsPRINT" 3) Hoeveel sommen 
moet ieder kind maken? (maxima 

al 50)8INPUTE 

310 IFE<1ORE >50ORE< >INT(E)THENPRINT" 
Dat kan niet!"sGOTO300 
320 PRINT:PRINT" 4) Hoelang mag de 
leerling er over doen (in minut 

en) (max.20 )"5 sINPUTH 

330 IFH< 0 ORH>20THENPRINT"Dat kan nie 
t!"sGOTO320 

340 CLBsPRINT:PRINT"Even controleren 


If 


350 PRINT:PRINT" 1) Aantal leerli 
ngen: "C 

360 PRINT" 2) Tot en met tatel vans 
"D 

370 PRINT" 3) Aantal sommen: 

"E 

380 PRINT" 4) Tijd: 

"H"minuten" 

390 PRINT:PRINT"K1opt dit? (j/n) 

400 B*=INKEY$ 

410 IFB$="J"ORB$="j"THEN440 
420 IFB$= ,, N ,, ORB$="n "THEN60 
430 GOTO400 

440 PRINT:PRINT:PRINT"U kunt de nits 
1ag voortijdi g":PRINT:PRINT"verkrijg 
en door (voordat een":PRINT:PRINT"vo 
Igende leerling zou beginnen)PRINT 
SPRINT "op -f unkti e-toets 1 ve rirukkengg 


1) 













































450 PRINT: PRINT: PRINT"Druk op de kno 
p 'SELECT' om de eersteleerling te 1 
aten beginnen." 

460 B*=INKEY* :IFB$=CHR$(24)THEN500EL 

SE460 

470 7 

480 7 ### Hoo-f dprogr amma leerling 
490 7 

500 FORF=1TDCs SCREEN0: COLOR15,4,4:T= 
0 

510 DEFUBR1=342 
520 U=USR1<0) 

530 POKE&HFCAB, ?<H0 

540 OUT170,1NP (170)0R64 

550 PRINT“Hoe heet je ? " 

560 LOCATE1,8,0:PRINT"(Maximaal 12 1 
etters)" 

570 LDCATE14,0,IsIL=12sGOSUB2100 
580 IFA$=“"THENCL5s BOTO550 
590 B=ASC(MID*(A*,1, 1) ) 

600 IFB>96ANDB<123THENB—B-32 
610 MIDS(A*,1,1)=CHR*(B) 

620 7 

630 7 ### Klokgelui en spinneweb 
640 7 

650 SCREEN2:C0L0R4 5 11, 3:CLS 
660 SOUND0,178:SOUND1,43s S0UND2,105s 
SOUNDS,36 s S0UND4,105s SOUNDS,36 s SOUND 
7,56:SOUNDS,16:S0UND9,3 s SDUND10,16 s S 
OUND11,233s SOUND12,69s SOUND13,8 
670 OPEN"grp:"FOROUTPUTAS#! 

680 PRESET(115,87):PRINT#1,“Hoi“ 

690 FORI=0TOBP 

700 A <1,0)=COS(I/BP#6.28)#125+125 
710 A(I,1)=SIN(I/BP#6.28)#90+90 
720 NEXTI 

730 FOR I=0TOBP” 1: FOR J — I +1TOBF 
740 LINE(A(1,0),A(I,1))“(A<J,0),A(J, 
1) ) 

750 NEXTJ:NEXTI 

760 FORBB=1TD1500: NEXT 

770 KEY1,"" 

780 DEFUSR=144 
790 U=USR(0> 

800 7 

810 p ##* Uitleg 
820 7 

830 SCREEN2s COLOR15,1,7 
840 PSET(34,103) 

850 DRAW"C9D2L1D2L1D2L1D3L1D1L1D3L1D 
2L1D1L1D3L1D2L1D4L1U1L1D1L5U2L1U4R3D 
1R2U3L1U1L1U1L2D1L1D1L1D8R1D3R5U1R4D 
2R5D1R6D1R2U2R1U2R1U4L1U23L1D2L3U2L1 

It 

860 PAINT(35,110),9 
870 PSET(35,108),IsPSET(38,108),1 
880 PSET(37,110),IsPSET(37,111),1 
890 PSET(36,112),Is PSET(37,112),1 
900 COLOR1,3,7 

Ql<31 PRCeCT/Q 1 \ 

920 PRINT#1,"Dag, "A$". Hoe gaat":PR 
INT#1,"":PRINT#1;" het met je?":PRIN 
T#1,"":PRINT#1,"" 

930 PRINT#1," We gaan dadelijk wat"s 
PR I NT# 1, " " s PR I NT# 1, " ta-felsommen mak 
en. " 

940 PRINT#1,"":PRINT#1,"":PRINT#1," 

Veel succes," 

950 PRESET(9,160) 

960 PRINT#!,"Druk op 7 SELECT' ale je 
"sPRINT#1,""sPRINT#1," wilt beginnen 

if 

970 DEFUSR1=342 
980 U=USR1(0) 

990 B$=INKEY$:RN=RND(1):IFB$=CHR*(24 
)THEN1000ELSE990 

1000 SCREEN1,Is COLOR!,13,13sT!ME=0 
1010 7 


1020 7 ### Prima-spritee inlezen 
1030 7 

1040 GOSUB3480 
1050 7 

1060 7 ### Sommen-routine 
1070 7 

1080 F0RG=1T0E 

1090 IFTIME >H#3000THENGOSUB3150ELSEG 
OTO1120 

1100 C*(F)=A*:SS(F)=G~1:S(F>=T 
1110 IFF=CTHENGOTO1580ELSEGOTO1510 
1120 X=CINT(RND(1)#11) 

1130 Y=CINT <RND(1)#D+1) 

1140 CLS 


1150 LOCATE1,1,0 
1160 PRINT"SOM "G 
1170 L0CATE4,3,0 


1180 print 

1190 PRINT" © © 

1200 PRINT" © ":L0CATE23,5,0sPRIN 
T"©" 


1210 PRINT" 
1220 PRINT" 




II 



1230 DEFUSR1=342 
1240 U=USR1(0) 

1250 L0CATE7,5,0s PRINTX"x"Y"= " 

1260 LOCATE17,5,0 sIL=4:G0SUB2190 
1270 IFZ^=""THEN1140 
1280 Z=VAL(Z*> 

1290 IFZ=X#YTHENGOSUB2280ELSEGOSUB28 
80 

1300 NEXT 
1310 7 

1320 7 *## Klaar 
1330 7 

1340 SCREEN2:COLOR15,1,7 

t PQFT(^4 103) 

1360 DRAW »C9D2L1D2L1D2L1D3L1D1L1D3L1 
D2L1D1L1D3L1D2L1D4L1U1L1D1L5U2L1U4R3 
D1R2U3L1U1L1U1L2D1L1D1L1D8R1D3R5U1R4 
D2R5D1R6D1R2U2R1U2R1U4L1U23L1D2L3U2L 
1" 

1370 PAINT<35,110),9 
1380 PSET(35,108),1s PSET(38,108),1 
1390 PSET(37,110),IsPSET(37,111),1 
1400 PSET(36,112),1:PSET(37,112),1 
1410 PRESET(9,1) 

1420 PRINT#1,"Je hebt genoeg"sPRINT# 

1,""SPRINT#!," gedaan, "A*:PRINT#1," 

II 

1430 PRINT#!," Je hebt"G-l"sommen ge 
maakt.” 

1440 PRINT#1,"" 

1450 PRINT#!," Je had er"T"goed." 

1460 PRESET(9,170) 

1470 PRINT#1,"Druk op 7 SELECT *." 

1480 B*=INKEY$:IFB*=CHR*(24)THEN1490 
ELSE1480 

1490 C*(F)=A*:SS(F>=G-1:S(F)=T 
1500 IFF=CTHEN1580 
1510 SCREENS 
1520 PSET(1,1) 

1530 PRINT#1,"Roep 7 t"sPRINT#1,"volg 
en”"sPRINT#1,"de kind" 

1540 PRINT#1,"" 

1550 PRINT#1,"Druk op"sPRINTttl,"SELE 
CT" 

1560 Be=INKEYSsIFB*=CHR$(24)THEN1570 

ELSE1560 

1570 CLOSE:NEXTF 

1580 SCREENS 

1590 PSET(1,1) 

1600 PRINT#1, "Roep je" : PRINT#! , " ju-f / 
mees" 

1610 PR!NT#1,"Druk op"sPRINT#!,"SELE 
CT 11 
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1620 BS=INKE YS:IFBS=CHRS(24)THEN1660 
ELSE1620 
1630 ? 

1640 ? *** Einde ***LET OP: Het code 
- woord is ’uitslag' 

1650 ? 

1660 SCREEN0:COLOR15,4,4:PRINT"Tik h 

et code-woord":PRINT 

1670 POKE&HFCAB,&H0 

1680 OUT170,INP(170)0R64 

1690 BS=INKEYS:IFBS="u"THEN1700ELSE1 

690 

1700 COLDR0:LINEINPUTBS 

1710 IFBS=" i t si ag "THEN 1720ELSE1660 
1720 COLOR15 
1730 WIDTH40 

1740 CLS: PRINT ,t naam"TAB (15) "aantal "T 
AB (22) 11 aantal 11 

1750 PRINTTAB <15)"sommen"TAB < 22 > "goe 
d" 

1760 PRINT 
1770 FORKL-1TOC 

1780 PRINTCS(KL)TAB(15)SS(KL)TAB <22) 
S (KL) 

1790 NEXTKL 

1800 L0CATE28,10,0:PRINT"$$$$$$$$$$$ 


( 

1810 L0CATE28,11,0: PRINTS ^ 

1820 L0CATE28,12,0:PRINT"^ SEZIEN? $ 
1 

1830 L0CATE28,13,0:PRINT^ 

I 

1840 L0CATE28,14,0: PRINTS druk $ 

I 

1850 L0CATE28,15,0:PRINTdan $ 

I 

1860 L0CATE28,16,0:PRINT"^ op & 

I 

1870 L0CATE28,17,0:PRINT^ 

I 

1880 L0CATE28,18,0:PRINT"^ SELECT $ 

t 

1890 L0CATE28,19,0:PRINT"^ & 

I 


1900 L0CATE2B, 20,0: 

II 

1910 BS=INKEYS:IFBS=CHRS(24)THEN1920 
ELSE1910 

1920 CLS:PRINT" Wilt U de uitslag no 
g sens zien? (j/n)" 

1930 BS=INKEYS 

1940 IFB$="j"ORBS—» J "THEN1730 
1950 IFBS="n"ORBS="N"THEN1970 
1960 GOTO1930 
1970 LOCATE1,10 

1980 PRINT"Wilt U nog meer kinderen 
met dit":PRINT" programma laten werk 
en? (j/n) 

1990 BS=INKEYS • 

2000 IFBS="j"ORBS="3"THEN60 
2010 IFBS="n"ORBS="N"THEN2060 
2020 GOTO1990 
2030 p 

2040 ’ He** Reset 
2050 " 

2060 DEFUSR=0:PRINTUSR(0) 

2070 ? 

2080 * *** Invoer-routine naam 
2090 ? 

2100 AS="":KEY1,CHRS < 237):EI=1:PRINT 
STRINGS(IL,46)STRINGS <IL, 29)5 
2110 XIS=INPUTS<1>:IFXIS=CHRS(237)GO 
TO1660:ELSE1FXIS=CHRS(13)THENPRINTSP 
ACES(IL-LEN(AS)):RETURN:ELSEIFXIS=CH 
RS(8)G0T02130 


2120 IFXIS< CHRS(32)ORXIS >CHRS(32> AND 
XIS< CHRS(45)ORXIS >CHRS(45)AND XIS< CHR 
S(65)ORXIS >CHRS(90)ANDXIS< CHRS(97)OR 
XIS >CHRS(122)THEN2110 
2130 IF XIS=CHRS(8)ORXIS=CHRS(29)THEN 
EI=EI-1:IFEI=0THENE1 = 1:G0T02110:ELSE 
AS=LEFTS < AS,EI-1):PRINTCHRS(29)"CH 
RS(29);:G0TO2110 
2140 IFEI-IL+1G0T02110 
2150 PRINTXIS?:EI-EI+1:AS=AS+XIS:GOT 
02110 
2160 51 

2170 ’ *** Invoer-routine uitkomst 


2180 ? 

2190 ZS="":EI=1:PRINTSTRINGS(IL,32)B 
TRINGS(IL,29); 

2200 XIS=INPUTS(1):IF X IS=CHRS(13)THE 
NPRINTSPACES(IL-LEN(ZS)):RETURN:ELSE 
IF XIS=CHRS(8)GOTO2220 

2210 IFX1S< CHRS(48)ORXIS >CHRS(57)THE 
N2200 

2220 IF XIS=CHRS(8)ORXIS=CHRS(29)THEN 
EI=EI-1:IFEI=0THENE1=1:GOTO2200:ELSE 
ZS=LEFTS(ZS,EI-1):PRINTCHRS(29)" "CH 
RS(29);;GOTO2200 
2230 IFE1=1L+1GOTO2200 


2240 PRINTXIS;:EI=EI+1:ZS=ZS+XIS:GOT 

02200 

2250 p 

2260 ? *** Subroutine "GOED" 

2270 ? 

2280 T=T+! 

2290 PL AY"v11T90L8O5ECO4GO5C.D16C" 
2300 PLAY " S3M466T90L.8O5ECO4GO5C - D16C 

II 

2310 PLAY"SI4M777T90L8O5ECO4GO5C.D16 
C" 

2320 P=240:Q=108 

2330 IFP=30THEN2370 

2340 PUTSPRITE1,(P,Q),1,1 

2350 P~P“3 

2360 GOTO2330 

2370 P-240:Q=5 

2380 IFP=46THEN2440 

2390 PUTSPRITE2,(P,0),1,2 

2400 p=P-4:Q=Q+2 

2410 IFQ >100THENQ=100 

2420 IFP< 46THENP=46 

2430 GOTO2380 

2440 P=62:Q=1 

2450 PUTSPRITE3,(P,Q),1,3 

2460 IFQ=108THEN2500 

2470 Q=Q+3 

2480 IFO >10BTHENQ=108 

2490 GOTO2450 

2500 P=78:Q=190 

2510 PUTSPRITE4,(P,D),1,4 

2520 Q=Q-5 

2530 IFQ=< 5THEN2550 

2540 GOTO2510 


2560 

2570 


2590 

2600 

2610 

2620 

2630 

2640 

2650 

100 : 

2660 

2670 

2680 

2690 

2700 

2710 


P=78:Q=5 

IFQ= >100THENQ=100 
PUTSPRITE4,(P,Q),1,4 
IFQ=100THEN2610 

Q=Q+10 

GOTO2560 

PUTSPRITE5,(94,84),10,5 
FORB=1TO100:NEXT 
PUTSPRITE5,<94,132),11,5 
FORB=1TO100:NEXT 
PUTSPRITE5,(94,84),7,5:FORB=iTO 
NEXT 

PUTSPRITE5,(94,132),1,5 
FORB=1TO100:NEXT 
PUTSPRITE5,(94,84),4,5 
FORB=1TO100:NEXT 

PUTSPR ITE5, (94,132U15,5 . , „ k 

FORB=1TO100:NEXT JUfllOr 99 







2720 PUTSPRITE5, (94,91) ,1,5 

2730 FDRB=1TO1200:NEXT 

2740 PUTSPRITE1, <10,10) ,0, 1 

2750 FORB-1TO50:NEXT 

2760 PUTSPRITE2, (10,10) ,0,2 

2770 FDRB=1TO50S NEXT 

2780 PUTSPRITE3,<10,10),0,3 

2790 FORB=1T050 s NEXT 

2800 PUTSPRITE4,<10,10),0,4 

2810 FORB=1TO50:NEXT 

2820 PUTSPRITE5,<10,10),0,5 

2830 FORB-1TO50:NEXT 

2840 RETURN 

2850 ’ 

2860 9 Subroutine "FOUT" 

2870 3 

2880 SOUND0,250:SOUND1,0 

2890 S0UND6,20 5 SOUND7,20:SOUND13,20 

2900 FORBL-15TO0STEP-.05 

2910 SOUNDS,GL 

2920 NEXTGL 

2930 S0UND6,27 

2940 S0UND7,55 

2950 SOUNDS,16 

2960 SOUND1i,49 

2970 SOUND12,8 

2980 SOUND13,8 

7990 1 nrATFI 10 

3000 PRINT"JAMMER!!!!"SPRINT 

3010 PRINT"Dit antwoord is FOUT!!!": 

PRINT 

3020 PRINT"Het moest zijn:"sPRINT 
3030 PR I NTT AB <7) X " Y" = "X#Y 
3040 PRINT:PRINTTAB(7)"Volgende keer 
":PRINTTAB <7)"beter, "A$ 

3050 PRINT:PRINTsPRINT"Druk op 5 SELE 
CT * 

3060 DEFUSR1=342 
3070 U=U6R1<0) 

3080 B*=INKEY*:IFB*=CHR* < 24)THEN3090 

ELSE3080 

3090 DEFUSR=144 

3100 U=USR<0) 

3110 RETURN 
3120 9 

3130 " *** Tijd is om 
3140 ? 

3150 SCREEN2 
3160 PSET <34,103) 

3170 DRAW"C9D2L1D2L1D2L1D3L1D1L1D3L1 
D2L1D1L1D3L1D2L1D4L1U1L1D1L5U2L1U4R3 
D1R2U3L1U1L1U1L2D1L1D1L1D8R1D3R5U1R4 
D2R5D1R6D1R2U2R1U2R1U4L1U23L1D2L3U2L 
1" 

3180 PAINT <35,110),9 
3190 PSET<35,108),1:PSET<38,108),1 
3200 PSET<37,110),1:PSET <37,111),1 
3210 PSET<36,112),1:PSET<37,112),1 
3220 PRESET(9,1) 

3230 PRINT#1," Jammer, "A*"." 

3240 PRINT#1i""sPRINT#1," De tijd is 
om - " 

3250 PR1NT#1,""sPRINT#!," Je hebt"G- 
l"sommen gemaakt." 

3260 PR1NT#1,""sPRINT#!," Je maakte 
er"T"goed." 

3270 PRESET<9,170) 

3280 PRINT#1,"Druk op ’SELECT'." 

3290 B*=INKEY*:IFB*=CHR* < 24)THEN3300 

ELSE3290 

3300 RETURN 

3310 * 

3320 * ttt Fout-a-f handel i ng 
3330 51 

3340 5CREEN0:CLSsIFERL< 480THENRUN 
3350 IFERR=5ANDERL=1280THENSCREEN1,1 
s GOSUB34B0s RESUME1140ELSEPRINT"FOUT" 
ERR"IN REGEL"ERL" 


3360 PRINT:PRINT:PRINT 
3370 PRINT"ROEP JE LEERKRACHT ! 

;PRINT:PRINT 

3380 PRINT"ROEP JE LEERKRACHT ! 
sPRINT:PRINT 

3390 PRINT"ROEP JE LEERKRACHT ! 
sPRINTsPRINT 
3400 PRINT:PRINT:PRINT 
3410 PRINT"Tik ’opnieuw' om door 



gaan" 

3420 PRINT:PRINT 
3430 LINEINPUTFR* 

3440 IFFR*="opnieuw"ORFR*="OPNIEUW"T 
HENT=0:CLOSE:CLS s RESUMES10ELSE3340 
3450 9 

3460 51 *** sprites 

3470 * 

3480 SPRITE* <1)=CHR* < &HFF)+CHR* < &HC3 
) +CHR* < &HDB) +CHR* < &HC3) +CHR* < ?<HDF) +C 


HR* < &HDF) +CHR* < &HDF) +CHR* < &HFF) 

3490 SPRITE* < 2)=CHR* < &HFF)+CHR* < &HC3 
) +CHR* <&HDB) +CHR* <&HC3) +CHR* (&HCF) +C 
HR* < &HD7) +CHR* < ¥<HDB) +CHR* < &HFF) 

3500 SPR I TE* < 3) =CHR* < &HFF) +CHR* < &HC7 
) +CHR* < &HEF) +CHR* < &HEF) +CHR* < &HEF) +C 
HR* (&HEF) +CHR* (&HC7) +CHR* <&HFF) 

3510 SPR ITE* < 4) =CHR* < ¥<HFF) +CHR* < &H93 
) +CHR* < ¥<HAB) +CHR* (&HAB)+CHR* <&HBB) +C 
HR* < &HBB) +CHR* < ¥<HBB) +CHR* < StHFF) 

3520 SPR ITE* < 5) =CHR* < ¥<HFF) +CHR* < &HEF 
) +CHR* (&HD7) +CHR* < &HBB) +CHR* <&HB3) +C 
HR* <S<HBB) +CHR* < 8<HBB) +CHR* <¥<HFF) 

3530 RETURN 
3540 ? 

3550 51 
3560 f 
* 
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EEN MODIFICEERBARE DATA-BASE 


ST-FILE 


HANDLEIDING ST-FILE. 

ST-FILE is een data-base programma. Het 
neemt inclusief werkruimte voor de com¬ 
puter ca. 10 Kb geheugen in beslag, 
zodat er voor het bestand zelf 19 Kb 
geheugenruirate overblijft. In het pro¬ 
gramma is een uitgebreide raadpleegfunk- 
tie opgenomen. Een aantal toetsen heeft 
in het gehele programma een specifieke 
funktie: 

<select>: Het programma is volledig me- 

nugestuurd. Met de 'select" 

toets wordt naar een hoger 
menu teruggegaan. Hij is vrij- 
wel overal te gebruiken waar 
een invoer gevraagd wordt. 

Bij enkele schermen heeft de 
'select' toets nog een bijzon- 
dere funktie. Zie aldaar. 

<esc>: In de linkerbovenhoek ver- 

schijnen regelmatig (fout)mei- 
dingen, voorafgegaan door een 
'beep'* Voordat het programma 
vervolgd kan worden, dient 
raiddels de 'esc' toets de 
melding weggehaald te worden. 
Op deze wijze wordt voorkomen, 
dat meldingen aan de aandacht 
ontsnappen. 

<cursor>: toetsen. Door het gebruik van 

een specifieke (fool-proof) 
invoerroutine kunnen de cur- 
sortoetsen niet op de normale 
manier gebruikt worden. (Cur¬ 
sor naar links/boven wist de 
gehele invoer, naar beneden/ 
rechts heeft geen effekt). In 
dit programma hebben zij een 
besturingsfunktie. In het al- 
gemeen kan ermee -afhankelijk 
van het gekozen scherm- naar 
de vorige of volgende invoer- 
regel, danwel het vorige of 
volgende record gegaan worden. 
Bij het scherm 'wijzigen' kun¬ 
nen de cursortoetsen wel op 
nagenoeg normale wijze ge¬ 
bruikt worden. 

Het gehele programma is fool-proof. 


0 n 





H0OFDMENU STFILE 


AANYULLEN 1 

WIJZIGEN / 
UERNIETIGEN 2 

RAADPLE6EN 3 

SORTEREN 4 

BEWAREN 5 


keuze H 



(C) Junior 99 











ST-FILE begint met de vraag of er een 
nieuw bestand aangemaakt moet worden of 
dat er een oud bestand van cassette 
geladen moet worden. Bij de laatste 
keuze wordt na het laden (ca 6 minuten 
bij een maximaal bestand) automatisch 
naar het hoofdmenu gesprongen. 

Bij aantnaak van een nieuw bestand vraagt 
het progratnma de recordindeling (naam en 
lengte van de velden) in te voeren. Een 
record kan uit maximaal 15 velden be¬ 
st aan , terwijl de lengte van een veld 
maximaal 24 tekens lang mag zijn. Tevens 
geldt als restriktie, dat de recordleng- 
te niet groter mag worden dan 255. Bij 
overschrijdingen van bovengenoemde gren- 
zen zal er een foutmelding verschijnen. 
Bij de bepaling van de veldlengte dient 
er rekeriing mee gehouden te worden, dat 
deze lengte in elk record gereserveerd 
wordt, ongeacht de werkelijke inhoud. 
Vooral bij grote bestanden is het dus 
belangrijk de veldlengte zo kort moge- 
lijk te houden. 

Indien het gewenste aantal velden be- 
noemd is, kan de invoer met de “'select' 
toets bevestigd worden, waarna automa¬ 
tisch het scherm 'INVOER BES V AND' geko- 
zen wordt. In de rechterbovenhoek ver- 
schijnt daarbij het maximale aantal in 
te voeren records (afhankelijk van de 
recordlengte) en het in te voeren re- 
cordnummer. De invoer van records kan 
beeindigd worden middels de 'select' 
toets bij de eerste invoerregel van een 
nieuw record, waarna naar het hoofdmenu 
teruggesprongen wordt. De daar getoonde 
keuzeraogelijkheden 'aanvullen', 'sorte¬ 
ren' en 'bewaren' verklaren zichzelf. 

Bij de schermen 'WIJZIGEN/VERNIETIGEN' 
en 'RAADPLEGEN' valt nog op te merken, 
dat bij het selektief benaderen van een 
bestand raeerdere selectiegegevens opge- 
geven mogen worden. Indien de gewenste 
selectiegegevens ingevoerd zijn, dient 
de 'select' toets gebruikt te worden om 
de invoer te beeindigen en de selectie 
te starten. Let wel: alle records, die 
aan de selectiecriteria voldoen, worden 
geselecteerd. De cursortoetsen worden 
hier gebruikt voor het tonen van het 
volgende of vorige geselecteerde record. 
Met betrekking tot het sorteren is nog 
het volgende van belang: 

- Indien bij bepaalde velden getallen 
ingevoerd worden, worden deze behan- 
deld als strings, waardoor het sorte¬ 
ren ervan tot fouten zal leiden, in¬ 
dien het aantal cijfers niet gelijk.is 
(b.v. 5 is dan groter dan 23). Dit kan 
voorkomen worden door voorloopnullen 
te gebruiken, zodat alle getallen 
dezelfde lengte hebben. 

- Correct sorteerbare (geboorte)data 
dienen als volgt ingevoerd te worden: 

JJJJ-MM-DD 

Veel plezier ermee. 


PROGRAMMABESCHRIJVING ST-FILE. 


STRINGBEHANDELING: 

Alle velden behorende tot een record 
worden ondergebracht in een stringvaria- 
bele BB(X). Er wordt dus voor het be¬ 
stand een 1-dimensionale array opge- 
bouwd. Deze oplossing heeft een drietal 
belangrijke voordelen ten opzichte van 
het gebruik van een 2-dimensionale ar¬ 
ray: 





Een 2-dimensionele stringarray kost 
erg veel geheugenruimte (b.v. een DIM 
A$ (250,15) kost ca 12000 bytes), 
waardoor er te weinig geheugen over- 


blijft voor het programme en het 


bestand. 

Er wordt een aanzienlijke tijdwinst 
verkregen bij het sorteren, daar er 
d.m.v. 1 swap-instruktie 2 records 
verwisseld kunnen worden. Bij een 2- 
dimensionale array kost dit bij 15 
velden per record 15 swap-instruk- 
ties • 


Een 2-dimensionale array zou tot 
enorme garbage-collection problemen 
leiden (zie MSX-GIDS nr.2). 


De afzonderlijke velden worden benaderd 
met de M1D$ instruktie. Hiervoor is het 
wel noodzakelijk, dat de plaats van het 
eerste teken en de lengte bekend zijn. 
Deze beide gegevens worden bij de invoer 
van de vaste gegevens ingegeven c.q. 
berekend en opgenomen in de array L 
(15,2). (Regel 1380). 


INPUTROUTINE: 


De fool-proof invoerroutine is te vinden 
in de regels 1490 t/m 1620. Voordat deze 
routine aangeroepen wordt, wordt er 

eerst een drietal variabelen benoemd: HH 
voor de horizontale positie op het 
scherm, VV voor de vertikale positie en 

TT voor het aantal in te voeren tekens. 
Regel 1500: print voor het aantal in te 

voeren tekens liggende 

streepjes op de juiste loka- 

tie. 

1510: invoer 1 karakter 
1520-1530: controle op besturingstoetsen 

(select + cursortoetsen), dan 
return, 
en 

controle op 'BS' toets, dan 1 
teken terug. 
en 

controle op 'return' toets, 
dan invoer aanvullen met spa- 
ties tot juiste aantal tekens 
en RETURN. Het resultaat 
staat in II. 

controle op niet-toegestane 
tekens 

1570: controle op maximaal aantal 
tekens, dan 'BEEP' 
ingevoerd karakter in II en 
printen 


1540 

1590-1600: 

1550 

1610-1620: 


1560: 


1580: 
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SORTEREN: 

Voor het sorteren wordt de shellsort 
methode gebruikt zoals beschreven in 
MSXGIDS nr*2. 

(FOUT)MELDINGEN: Regels 590-840 
Als een soort ingebouwde helpfunktie 
verschijnen er regelmatig meldingen in 
de linkerbovenhoek. In de regels 650-830 
worden deze meldingen in de stringarray 
F(X) gedefinieerd. De eigenlijke fout- 
routine staat in de regels 590-610. Voor- 
dat deze aangeroepen wordt, wordt het 
nummer van de melding gedefinieerd in 
F%. 


Diverse vaakgebruikte instrukties zijn 
ondergebracht in subroutines. Deze zijn 
te vinden in de regels 860-1150. 

Een aantal variabelen heeft een vaste 
inhoud: 

NV(X) : veldnamen 

L(X,Y); startnummer en lengte 

van de diverse velden in 
een record 

BB(X) ; record nummer X 
BB(0)+C(X) : hulparrays, waarin de te 

selecteren gegevens op- 
genoraen worden. Dit ge- 
beurt in de regels 2760- 
2840, 

AR : het aantal records in 

een bestand 

AM : het maxiraale aantal re¬ 
cords 

T : het nummer van het re¬ 

cord in bewerking 

S : de naara van het scherm, 

dat in gebruik is 

F(X) : de (fout)meldingen 

J.W.M. THIJSSEN. 


Beeldscherm: WIDTH 36 


10 'DATABASE door Sjaak Thijssen, 

Brechtstraat 33 te Venlo 

20 REM 

30 REM INIT1ALISATIE 
40 REM 

50 CLEAR19700ICLSs WIDTH39 
60 DEFINTA-ZsDEFBTRB,I,N,S bDEFBNGQ 
70 GOSUB600 

80 DIMNVU5) iDIML<15,2>:DIMBB<251> (D 
IMC ( 15 ) 

90 KEVOFF 

100 B“"INITIALISATIE" i GOBUB810 
110 LOCATE0 ,6,01 PRINT"NIEUW BESTAND 
1 " 

120 LOCATE0,7(PRINT"OUD BEBTAND 2 

If 

130 LOCATE10,10iPRINT"keuze "iiI-INP 

UT*<1)::X*VAL(I)iIFX<10RX>2THEN130 

140 L0CATE15,10(PRINTX 

150 60SUB9101 IFI*"N"THEN100 

160 IFX“2THEN360 

170 GOSUB1130 

1B0 GO6UB1920 

190 REM 

200 REM HOOFDMENU 
210 REM 

220 B“"HOOFDMENU"s GOSUB810 


230 LOCATE0,6 

240 PRINT"AANVULLEN 1" 

250 PRINT" WIJ Z1GEN /" 

260 PRINT" VERNIETIGEN 2" 

270 PRINT"RAADPLEGEN 3" 

280 PRINT"SORTEREN 4" 

290 PRINT"BEWAREN 5" 

300 LOCATE10,14(PRINT"keuze "jsI“INP 
UT$<1)lX“VAL<I>(IFX<1ORX>5THEN300 
310 ONXGO6UB1960,2140,2430,1590,1B10 
320 GOTO220 
330 REM 

340 REM BEBTAND VAN CASSETTE 
350 REM 

360 S="BEBTAND VAN CASSETTE"IG0SUBB1 
0 

370 F7.«9iGOBUB520 

380 OPEN"CABt"FORINPUTAS#1sINPUT#1,A 
RsINPUT#!,AV 

390 LOCATE0,5sPRINT"AANTAL RECORDSs 
" I AR 

400 F0RX“1T0AV:LINEINPUT#1,NV(X)sNEX 
T 

410 FORX-lTOAVlINPUT#1,L<X,1),L < X,2 > 
(NEXT 

420 AM®19000/(L<AV,1>+L<AV,2)-1)IIFA 

M>250THENAM“250 

430 T* 11BOSUB1090 

440 LINEINPUT#1,BB < T) 

450 IFEOF <1> THENCLOSEiGOTO470 

460 T"T+1lGOBUB1090iGOTO440 

470 IFAR-TTHENGOTO220 

480 LOCATE0,10iPRINT"IN TE LEZEN REC 

ORDSi 11 1 ARg 

490 LOCATE®,12iPRINT"INBELEZEN RECOR 
DB i"j Ti 

900 F%=10!BOSUB520:GDTD220 
910 REM 

920 REM FOUTROUTINE 
930 REM 

940 BEERl LOCATE0,0( PRINTF <F5i> 

990 S-INKEY*!IFB<>CHR*(27)THEN990 
960 LOCATE0,01PRINTF(0)lRETURN 
970 REM 

9B0 REM FOUTMELDINBEN 
990 REM 

600 DEFBTRFIDIMF(17) 

610 F(0)=" 

• | 


620 F(1> 
630 F(2) 
640 F (3) 
650 F<4> 
660 F(5> 
670 FC6) 


"veldlengte min. 1" 
"veldlengte man. 24" 
"verplichte ingave" 

"recordlengte max. 255" 
"max. 15 velden" 
"startnummer buiten bestand 


680 F(7)“"terug kan niet" 

690 F<B)®"einde bestand" 

700 F(9>»"zet cassette-recorder klaa 
r" 

710 F(10)®"inlees-fout" 

720 F(11)“"record is vernietigd" 

730 F<12)“"sorteren beeindigd" 

740 F<13)="1 record in bestand" 

750 F(14)="geen selectiecriterium" 
760 F<15)“"record is gewijzigd" 

770 F(16)“"bestand vol" 

780 F <17)“"keyi“wijzig, key2=verniet 
lg record" 

790 RETURN 
800 REM 

810 REM KOP+CLS 
820 REM 
830 CLS 
840 PRIN' 
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850 PRINT” ,- 

I II 


860 PRINT”I ’ 

ST-FILE |”5 

870 PRINT” I- 

_—__i » 

660 L0CATE2 ? 2lPRINTS| 

690 RETURN 
900 REM 

910 REM ACCOORD J/N ROUTINE 
920 REM 

930 L0CATE22 ,22 

940 PRINT"accoDrd <j/n) "$sI-INPUT*( 

1) 1 IFI — " J " THEN I - " J " ELSE IFI — " n " THEN I— 
"N" 

950 IFI < > ” J "ANDI < > " N "THEN930ELBERETU 
RN 

960 REM 

970 REM PRINT VELDNAMEN 
980 REM 

990 FORX-1TO AV 1 LOCATE0,X +4:PRINTNV < X 

) ... 1 NEXT 

1000 RETURN 
1010 REM 

1020 REM PRINT VELDINHOUD 
1030 REM 

1040 FORX -1TOAV 1 LOCATE15,X +4 s PRINTMI 
D*<BB<T),L<X,1),L<X,2)) 5 lNEXT 
1050 RETURN 
1060 REM 

1070 REM PRINT RECORDNUMMER 
1060 REM 

1090 LOCATE35,0:PRINTU6ING H ### ,, |Tj iR 

ETURN 

1100 REM 

1110 REM INVOER VASTE BEGEVENS 
1120 REM 

1130 S*®"VASTE BEGEVENS” 1 GOSUBB10 
1140 AV=0!X = 1s L <0,1)-1 
1150 LOCATE0,5 1 PRINT”VELDNAAM 
VELDLENGTE" 

1160 HH=0:VV=X+6:TT=12 

1170 GOSUB1420 

1180 IFS-CHR*(31)THEN1170 

1190 IFS-CHR*(30)ANDX >1THENLOCATE0, X 

+6:PRINTBPACE*<38)j sX«X-1 iGOTO l160 

1200 IFS^CHR* < 30 > THEN1170 

1210 IFS-CHR*(24)ANDX>1THEN1370 

1220 IFS-CHR* (24) THENF7.-3 1 GOSUB520 1 G 
OTO1170 

1230 IFLEFT* (11,1>"THENFy.-3s GOSUB 

5201GOTOl170 

1240 NV(X > —11 

1250 HH=20:TT-2 

1260 GOSUB1420 

1270 IFS-CHR* < 31)ORB-CHR*(24)THEN126 
0 

1280 IFS-CHR*(30)ANDX > 1 THENLOCATE 0 , X 
+ 6 s PRINTSPACE$(38)1 1 X«X-liGOTOl160 
1290 1FS-CHR*(30 > THEN1260 
1300 Y—VAL(II) 

1310 IFY< 1THENF7.-1 1 GOSUB520 1 GOTO 1260 
1320 IFY>24THENF7.*2i GOBUB520I GOTO 126 
0 

1330 L<X,2)=Y:L<X,1)-L(X-1,1)+L<X-1, 

2 ) 

1340 IF<L<X, 1 )+L<X, 2 )- 1 ) >255THENFy.-4 
1 GO6UB520e GOTOl130 

1350 X-X+l:IFX >15THENFX—5 s GOSUB520:6 

OTO1370 

1360 GOTOl160 

1370 AV-X-1 

1380 AM—19000/(L(AV,1)+L<AV,2)-1 )1 IF 
AM >250THENAM-250 
1390 GOSUB910 

1400 IFI-"N"THENG0T01130ELSERETURN 


1410 REM 

1420 REM INGAVE ROUTINE 
1430 REM 
1440 II«”» 

1450 LOCATEHH,VV,0:PRINTBTRING*(TT, H 
") 1 s LOCATEHH,VV 
1460 S-INKEY*: IFS-""THEN1460 
1470 IFS-CHR* < 28)THENB-CHR* <31)ELSEI 
FS-CHR* <29)THENB-CHR*(30) 

1460 IFB-CHR*<24)ORS-CHR*(30)ORB-CHR 

♦ < 31)THENIFLEN <11)“0THENRETURN 

1490 IFS-CHR*(B > THEN1540 

1500 IFB-CHR*<13)THEN1560 

1510 IFABC< S)< 320RASC< S)>122THENBEEP 

lGOTO1460 

1520 IFLEN <11)-TTTHENBEEP 1 GOTO1460 
•1530 11 -11+B 1 PRINTS 11 GOTO1460 
1540 IF 11 ■”"THENBEEP 1 GOTO1460 
1550 11"LEFT# <11,LEN <11)-1 )1 PRINTCHR 
*< 8 ) 1 ” ” 1 CHR*( 8)11 GOTO1460 
1560 lT-II+STRINB*(TT-LEN(II),32) 1 LO 
CATEHH,VV t PRINT11 51 RETURN 
1570 RETURN 
1580 REM 

1590 REM BORTEREN 
1600 REM 

1610 8 ""BORTEREN"IGOSUBB 10 
1620 I FAR< 2 THENFy.» 13 1 GO6UB520 1 G0TO22 
0 

1630 LOCATE0,5 1 FORX *1TOAV 8 PRINTNV< X) 

"}USING”##"$ X 1 NEXT 

1640 LOCATE0,22sPRINT"op welk veld s 
orteren "1 

1650 HH-23iVV-22bTT»2iGOSUB1420 

1660 IFS-CHR* < 24)THEN220 

1670 T-VAL <11) 1 IFT<1ORT>AVTHEN1650 

1680 ONINTERVAL—50GOBUB1780 

1690 Q-ARJM.15+< <AR/100)03))iQX-O/ 

60s Q=Qy.+ (Q- <Qy.*60) )/100 

1700 LOCATE0,23:PRINT"sorteertijd ±" 
11 PR INTUSING " ##. ##" *, Qj 
1710 TIME-011NTERVALON 
1720 XI-AR 

1730 Xl-INT(Xi/2)sIFXl-0THEN1770ELSE 
X2-1 1 X3-AR-X1 
1740 X4-X2 

1750 X5—X4+X1 1 IFMID* <BB <X4),L <T,1),L 
(T,2))—<MID*(BB(X5),L<T,1),L<T,2))TH 
EN1760ELSESWAPBB(X4),BB <X5)t X4-X4—XI 
IIFX4->1THEN1750 

1760 X2-X2+1IIFX2>X3THEN1730ELSE1740 
1770 INTERVALOFF s F%»12 1 BOSUB520 s RETU 
RN 

1780 Q-TIME/50! Q a /.-G/60i D=Q 7 .+ (Q- (Qy .*6 
0))/100 

1790 LOCATE30,0 s PRINTUSING”|Q| 
t RETURN 
1800 REM 

1810 REM BENAREN 
1820 REM 

1830 S-"BEWAREN" 1 GOSUBB10 
1840 G0SUB910 1 IFI="N"THENRETURN 
1850 F%«9 1 GOSUB520 s LOCATE0,5 1 PRINT"A 
ANTAL RECORDS: "3 AR 

I860 OPEN"CAB:"FOROUTPUTAB#l:PRINT#1 
,AR:PRINT#1,AV 

1870 FORX“lTOAV:PRINT#l,NV<X)lNEXT 
1000 FORX-1TOAV:PRINT#1,L<X,1)|L(X,2 
)INEXT 

1090 FORX« 1 TOAR s PRINT#1,BB < X )1 LOCATE 
35,0 1 PRINTUSING"###"|X| 1 NEX T X 
1900 CLOSE:RETURN 
1910 REM 

1920 REM INVOER BESTAND 
1930 REM 

1940 B-"INVOER BESTAND" 1 GOSUB810 
1950 AR-01GOTO1970 
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1960 B» "AANVULLEN " t GOSUBB 10 

1970 LDCATE 29 P 0 B PRINTUBING"### /"fAM 

I 

i 960 AR—AR +1 

1990 IFAR>AMTHENF%= 16 a GOSUB 520 SRETUR 
N 

2000 T—ARiGOSUB 1070 
2010 GOBUB 970 
2020 HH- 15 sX-l 

2030 BB C AR >-SPACE*< L < AV,1> +L(AV p 2)-1 
) 

2040 W=X+ 4 s TT-L < X p 2 ) 

2050 GDSUB 1420 

2060 IFS-CHR* < 24 > ANDX- 1 ANDAR > 1 THENAR 

bap.ii RETURN 

2070 IFS-CHR*( 24 )ORS-CHR*( 31 )THEN 205 
0 

20 B 0 IFS-CHR* < 30 > THENIF X- 1 GQTO 2050 EL 
SELQCATE 15 ,X+ 4 s PRINTBPACE*( 24 >|iX-X- 
18 GOTO 2040 

2090 MID*(BB(AR)pL(X„ 1 ),L(Xp 2 ))-II 
2100 X-X+l 

2110 IFX >AVTHENG 0 SUB 910 sIFI—"N"THENA 
R-AR- 18 GOTO 1960 ELSEGOTO 1960 
2120 GOTO 2040 
2130 REM 

2140 REM WIJZIBEN/VERNIETIGEN 
2150 REM 

2160 6 S- H WIJZIGEN/VERNIETIGEN" 

2170 S-SS s GDSUBB 10 

21 B 0 LOCATE 0 p 23 s PRINTF( 17 )} 

2190 ONKEYGOSUB 2290,2220 
2200 GOTO 2470 
2210 REM 

2220 REM VERNIETIGEN 
2230 REM 

2240 LOCATE0,22s PRINT"** VERNIETIGEN 
* *";aG0BUB910 sIFI-"N"THEN2270 
2250 BB < T)-BB < AR)s BB(AR)-""8 AR-AR-1s 
F*/.-118 GOSUB520 
2260 T-T-1:IFT<1THENT-1 
2270 LOCATE0,22:PRINTSPACE*(38);sRET 
URN ’■ ■ i . i 

22B0 REM 

2290 REM UIIJZIGEN 
2300 11 
2310 X-l 
2320 Y —0 

2330 LOCATE 15 +Y,X +4 
2340 S=INPUT*( 1 ) 

2350 IFS-CHR* ( 24 ) THENF 7 .- 15 : GOSUB 520 : 
RETURN 

2360 IFB-CHR*( 13 )ORS-CHR*( 31 )THENX-X 
+ 18 IFX<-AVTHEN 2320 ELSEFX -15 s GOSUB 520 
IRETURN 

2370 IFS-CHR*( 30 )THENX-X- 18 IFX< 1 THEN 

X-l 8 BEEP:GOTO 2340 ELSE 2330 

2380 IFS-CHR*( 2 B)THENY«Y +1 a IF Y >L < X p 2 

)- 1 THENY-L(X, 2 )- 18 BEEP 8 GOTO 2340 ELSE 2 

330 

2390 IFS-CHR *(29 > ORS-CHR* < 8 )THENY-Y- 
18 IFY< 0 THENY -08 BEEPb GOTO 2340 ELBE 2330 
2400 IFASC(S)< 320 RASC(S)> 122 THENBEEP 
s GOTO 2340 

2410 PRINTS;:MID*(BB(T>,L(X, 1 )+Y, 1 )« 
S s Y-Y+ 18 IFY >L(X. 2 )- 1 THENY-L < X, 2 )- 18 B 
EEPs GOTO 2330 ELSE 2330 
2420 REM 

2430 REM RAADPLEGEN 
2440 REM 

2450 SS-"RAADPLEGEN "8 ONKEYGOSUB, 

2460 S-SSbGOSUBB 10 bIFLEFT*<SS f 1 )- h W" 
THENLOCATE 0,23 s PRINTF( 17 ); 

2470 LOCATE 0 * 6 s PRINT"ZOEKCRITERIUM s 
"sPRINTsPRINT 

2480 PRINT"OPEENVOLBEND 1 " 

2490 PRINT"SELECTIEF 2 " 


2500 LOCATE10,13iPRINT"keuze "jsI-IN 
PUT* <1) 

2510 IFI-CHR*(24)THENRETURN 
2520 X-VAL(I) 

2530 IFX<10RX >2THEN2500 
2540 IFX-2THEN2700 

2550 LOCATE0,19s PRINT"startnummer"i b 
HH-13 8 VV-19 8 TT-3 8 BOSUB1420 
2560 IFS-CHR*(30)ORS-CHR*(31)THEN255 
0 

2570 IFS-CHR* < 24)THEN2460 

2580 IFLEFT* < 11, 1) » " "THENT-18 G0T026 

00 


2590 T-VAL (11) s I FT< 1ORT >ARTHENF7.-6 s G 
OSUB520S GOTO2550 


2600 S-SS:GOSUBB108IFLEFT*(SB,1)-"W" 
THENLOCATE0,23a PRINTF <17)a 
2610 GOSUB970 

2620 KEY(1)OFF 8 KEY(2)OFF s BOSUB1070 

2630 GOSUB1020 

2640 KEY(1)ONs KEY(2)ON 

2650 S-INKEY* 

2660 IFS-CHR*(24)THENKEY(1)OFF a KEY(2 
)OFF s GOTO2460 

2670 IFS-CHR*(29)ORS-CHR*(30)THENT-T 
-111 FT< 1 THENT-1 s F7.-7 8 GOBUB520 8 G0T026 
50ELSE2620 

2680 IFS-CHR*(28)ORS-CHR*(31)THENT-T 
+ 11 IFT>ARTHENT-ARs FV.-B8 GOSUB5208 GOTO 
2650ELSE2620 
2690 GOTO2650 

2700 S-SSsGOSUB810sIFLEFT*(SS,1)-"W" 
THENLOCATE0,23a PRINTF(17)j 
2710 LOCATE0 ( 5 8 PRINT"TE BELECTEREN G 
EGEVENS 8" 

2720 LOCATE0, 71FORX-1TOAV 8 PRINTNV< X) 
8" 8"iNEXT 

2730 X-la HH-15s YY-08BB(0)-SPACE*(L(A 
V,1)+L(AV P 2)) 

2740 VV-X+6B TT—L(X,2)a GOSUB1420 
2750 IFS-CHR*(24)THENIFX-1GOTO2460EL 
SE2790 

2760 IFS-CHR*(30)THENPRINTSPACE*(L(X 
.2))|8X»X-l8lFX<lTHENX-l8GOTO2740ELB 
E2740 

2770 IFS-CHR* <31)ORLEFT*(11 ( 1)-" "TH 
ENLOCATE15 p X +6 a PRINTSPACE* < L < X,2))$8 
X-X+laIFX >AVTHEN2790ELSE2740 
2780 YY=YY+1 bMID*(BB< 0)pL(X,l),L(X,2 
))-IIsC<YY)=XsX-X+!sIFX<-AVTHEN2740 
2790 IFYY-0THENF7.-14 s GOSUB520 f G0T027 
00 

2B00 B-SBIGOSUBB10 a IFLEFT*(SS,1)-"W" 
THENLOCATE0,23a PRINTF <17); 

2810 GOSUB970 

2820 T-laTT-l 

2830 KEY <1)OFF s KEY < 2)OFF 

2B40 I FT >ARTHENT-AR 8 F7.-B s GOSUB520 8 GO 

TO2910 

2B50 I FT< 1THENT-0 s F7.-7 8 GOSUB520: GOTO 
2910 


2860 GOSUB1070iX-0 


2870 X-X+lsIFMID*(BB<T),L <C(X),1) % L< 
C(X),2))»MID*(BB<0) p L <C(X),1) 9 L <C <X) 
p2))THENIFX-YYGOTO2B90ELSE2B70 
2880 T-T+TTa GOTO2840 
2890 GOSUB1020 


2900 KEY(1)ONs KEY(2)ON 
2910 S-1NKEY* 

2920 IFS-CHR* < 28)ORS-CHR*(31)THENTT- 
18 T-T+TT 8 6OTO2830 

2930 IFS-CHR*(29)ORS-CHR* <30)THENTT- 
-18 T-T+TT 8 GOTO2830 

2940 IFB-CHR* < 24)THENKEY <1)OFF 8 KEY < 2 
)OFF 8 GOTO2700 
2950 G0T02910 
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220 - 45 

Rege 

1120 - 0 

Regel 

2020 

- 

48 

230 - 44 

Rege 

1130 - 127 

Regel 

2030 

- 

26 

240 - 76 

Rege 

1140 - 81 

Regel 

2040 

* 

254 

250 - 139 

Rege 

1150 - 236 

Regel 

2050 


44 

260 - 167 

Rege 

1160 - 177 

Regel 

2060 

- 

109 

270 - 91 

Rege! 

1170 - 44 

Regel 

2070 

- 

25 

280 - 59 

Regel 

1180 - 95 

Regel 

2080 

- 

93 

290 - 238 

Regel 

1190 - 219 

Regel 

2090 

- 

123 

300 - 123 

Regel 

1200 - 94 

Regel 

2100 

- 

162 

310 - 95 

Regel 

1210 - 111 

Regel 

2110 

— 

145 

320 - 115 

Rege 

1220 - 104 

Regel 

2120 

— 

150 

330 - 0 

Rege! 

1230 - 13 

Regel 

2130 

- 

0 

340 - 0 

Rege! 

1240 - 206 

Regel 

2140 

* 

0 

350 - 0 

Regel 

1250 - 134 

Regel 

2150 

- 

0 

360 - 10 

Regel 

1260 - 44 

Regel 

2160 

- 

175 

370 - 83 

Regel 

1270 - 255 

Regel 

2170 

- 

234 

380 - 63 

Regel 

1280 - 219 

Regel 

2180 

- 

248 

390 - 69 

Regel 

1290 - 184 

Regel 

2190 

- 

228 

400 - 36 

Regel 

1300 - 190 

Regel 

2200 

— 

70 

410 - 187 

Regel 

1310 - 204 

Regel 

2210 

* 

0 

420 - 228 

Regel 

1320 - 224 

Regel 

2220 

- 

o ! 

430 - 112 

Regel 

1330 - 56 

Regel 

2230 

- 

0 

440 - 190 

Regel 

1340 - 155 

Regel 

2240 

- 

111 

450 - 206 

Regel 

1350 - 36 

Regel 

2250 

- 

53 

460 - 63 

Regel 

1360 - 35 

Regel 

2260 

- 

229 

470 - 174 

Regel 

1370 - 226 

Regel 

2270 

- 

38 

480 * 160 

Regel 

13B0 - 228 

Regel 

22B0 

- 

0 

490 - 86 

Regel 

1390 - 44 

Regel 

2290 

- 

0 

500 - 255 

Regel 

1400 - 157 

Regel 

2300 

- 

58 

510 - 0 

Regel 

1410 - 0 

Regel 

2310 

- 

89 

520 - 0 

Regel 

1420 - 0 

Regel 

2320 

- 

89 

530 - 0 

Regel 

1430 - 0 

Regel 

2330 

- 

202 

540 - 237 

Regel 

1440 - 197 

Regel 

2340 

“ 

78 

550 - 68 

Regel 

1450 - 168 

Regel 

2350 

- 

211 

560 - 97 

Regel 

1460 - 26 

Regel 

2360 

• 

38 

570 - 0 

Regel 

1470 - 247 

Regel 

2370 

- 

179 

580 - 0 

Regel 

14B0 - 180 

Regel 

2380 

- 

254 

590 - 0 

Regel 

1490 - 190 

Regel 

2390 

- 

236 

600 - 104 

Regel 

1500 - 213 

Regel 

2400 

- 

32 

610 - 59 

Regel 

1510 - 172 

Regel 

2410 

- 

244 

620 - 233 

Regel 

1520 - 186 

Regel 

2420 


0 

630 - 33 

Regel 

1530 - 58 

Regel 

2430 

- 

0 

640 - 174 

Regel 

1540 - 116 

Regel 

2440 

- 

0 

650 - 45 

Regel 

1550 - 47 

Regel 

2450 

- 

0 

660 - 120 

Regel 

1560 - 123 

Regel 

2460 


192 

670 - 75 

Regel 

1570 - 142 

Regel 

2470 

- 

24 

680 - 51 

Regel 

1580 - 0 

Regel 

2480 

- 

236 

690 - 233 

Regel 

1590 - 0 

Regel 

2490 

- 

91 

700 - 97 

Regel 

1600 - 0 

Regel 

2500 

- 

69 

710 - 33 

Regel 

1610 ' 250 

Regel 

2510 

- 

56 

720 - 176 

Regel 

1620 - 253 

Regel 

2520 

- 

116 

730 - IB 

Regel 

1630 - 192 

Regel 

2530 

- 

234 

740 - 174 

Regel 

1640 > 147 

Regel 

2540 

- 

99 

750 - 200 

Regel 

1650 - 233 

Regel 

2550 

- 

90 

760 - 71 

Regel 

1660 - 158 

Regel 

2560 

- 

20 

770 - 59 

Regel 

1670 - 4 

Regel 

2570 

- 

103 

780 - 165 

Regel 

1680 - 8 

Regel 

2580 

- 

177 

790 - 142 

Regel 

1690 - 165 

Regel 

2590 

- 

154 

800 - 0 

Regel 

1700 - 185 

Regel 

2600 

- 

192 

810 - 0 

Regel 

1710 - 72 

Regel 

2610 

- 

104 

820 - 0 

Regel 

1720 - 11 

Regel 

2620 

- 

118 

830 - 159 

Regel 

1730 - 43 

Regel 

2630 

- 

154 

840 - 145 

Regel 

1740 - 5 

Regel 

2640 

• 

195 

850 * 123 

Regel 

1750 - 249 

Regel 

2650 

- 

46 

860 - 114 

Regel 

1760 - 57 

Regel 

2660 

- 

153 

870 - 68 

Regel 

1770 - 239 

Regel 

2670 

- 

217 

880 - 131 

Regel 

1780 - 80 

Regel 

2680 

- 

217 

890 - 142 

Regel 

1790 - 126 

Regel 

2690 

- 

251 

900 - 0 

Regel 

1800 - 0 

Regel 

2700 

- 

192 


Regel: 2710 - 171 
Regel: 2720 - 96 
Regel: 2730 - 234 
Regel: 2740 - 102 
Regel: 2750 - 173 
Regel: 2760 - 8 
Regel: 2770 - 72 
Regel: 2780 - 101 
Regel: 2790 - 212 
Regel: 2800 - 192 
Regel: 2810 - 104 
Regel: 2820 - 56 
Regel: 2830 - ill 
Regel: 2840 - 214 
Regel: 2850 - 212 
Regel: 2860 - 95 
Regel: 2870 - 77 
Regel: 2880 - 36 
Regel; 2890 - 154 
Regel: 2900 - 195 
Regel: 2910 - 46 
Regel: 2920 - 2 
Regel: 2930 - 244 
Regel: 2940 - 138 
Regel: 2950 - 0 
Totaal: 30351 


1 


waste gegevens 

ST-FILE Ijjj 

VELDNAAM 

WELPLENGTE 

NAAM 

20 

ADRES 

20 

POSTCODE 

7 

WOONPLAATS 

24 


DUDE MUMMERS MSX-GIDS 

WE HEBBEN NOG WAT EXEMPLAREN VAN DE MSX- 
GIDS MR.1 KUNNEN ACHTERHALEN! 

ALLE DRIE DE VORIGE NUMMERS ZIJN DUS NOG 
NA TE BESTELLEN DOOR OVERMAKING VAN FL. 

7,95 (PER NUMMERl OP GIRO* 5036011 T.N.V. , 
J.HERPS, AMSTERDAM. TEL. 020-327464. 


FILOTEL 

Het Groningse softwarehuis Filosoft is 
gestart met een databank volgens het 

Viewdata- protokol: FILOTEL* 

Iedere huiscomputetaar die met Viditel 
kan communiceren-^-kan ook -en zonder lid- 
maatschapskosten e.d.- met Filotel kon- 
takt opnemen. 

De miniatuur-Viditel bevat 800 pagina's 
nieuws en tips voor gebruikers. Er is ook 
plaats ingeruimd voor *n prikbord, waarop 
men mededelingen voor collega-gebruikers 
kwi j t kan . 

Filotel is 24 uur per dag bereikbaar 
onder het telefoonnumer: 050-145174. 

Nadere inlichtingen ■ kunnen worden 
verstrekt door: Henk Menninga (050-13746) 
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VAT IS DE BIOS? 

Zoals u wel zal weten is in elke MSX 
computer een ROM geheugen van 32 K 
aanwezig, Dit ROM geheugen maakt bet 
mogelijk in BASIC te programmeren. Het 
ROM geheugen is onderverdeeld in twee 
deien waarvan de BIOS er een van is. 

De betekenis van het woord BIOS is zeer 
eenvoudig: Basic Input/Output System 
In het Nederlands komt dit neer op 
"subroutines van de ROM". Deze 
subroutines kunnen ook door de 
programmeur gebruikt worden. Ze kunnen 
echter niet gewijzigd worden. 

Qm deze subroutines te kunnen gebruiken 
moet men weten waar de beginadressen van 
deze routines zijn en welk effekt ze 
kunnen hebben in het programma! 

In dit artikel is het dan ook de 
bedoeling u deze en andere belangrijke 
dingen duidelijk te maken. 

Een voorkennis van Z8© M. taal en 
ASSEMBLER is wel noodzakelijk om dit 
artikel te begrijpen. 

Om het een beetje overzichtelijk te 
houden zal ik deze subroutines in enkele 
groepen indelen, 

BIOS SUBROUTINE’S DIE VERKEN MET DE 

JOYSTICK INTERFACE! 

Ik begin met de BIOS subroutines die de 
joystick-interface uitlezen. Dit omdat 
deze subroutines veel avereenkomst 
vertonen met de BASIC instrukties 
(STRIG, STICK, PAD, PDD.Omde 
joystick-interface uit te lezen zijn er 
vier subroutines in de BIOS. Dit zijn: 
GTSTCK, GTTRIG, GTPAD en GTPDL, Om de 
subroutines GTSTCK en GTTRIG te 
gebruiken heeft men niet noodzakelijk 
een joystick nodig. Ze werken ook met de 
cursortoetsen en de spatie balk. 

Bij de subroutines GTPAD en GTPDL is een 
toetsenbord alleen echter niet 
voldoende. 


Als eerste is er de subroutine "GTSTCK”, 
dit betekent: GET STICK. 

Deze subroutine wordt aangeroepen met 
CALL &HC0D5 en leest de stand van de 
cursorkey’s of van een van de twee 
joystick’s. 

De accumulator is de enige input 
parameter, en moet als inhoud 0 hebben 
als het om de cursortoetsen gaat, of wel 
1 als het om de joystick in poort 1 
gaat, ofwel 2 als het om de joystick in 
poort twee gaat. 

De enige output parameter is weer de 
accumulator, en deze bevat: 

0 voor een neutrale stand 

1 voor ornhoog 

2 voor ornhoog en rechts 

3 voor rechts 

4 voor rechts en omlaag 

5 voor omlaag 

6 voor omlaag en links 

7 voor 1inks 

I' 

8 voor links en ornhoog 

De waarde van de registers AF,BC,DE en 
HL kunnen door het uitvoeren van deze 
subroutine in waarde veranderen,zodat 
het aan te raden is al de registers die 
gebruikt worden op de stack te pushen. 
Tijdens het uitvoeren van deze 
subroutine is onderbreking mogelijk. 

Een voorbeeld van het gebruik van deze 
subroutine is gegeven in het spelletje 
"THE VALL", 

GTTRIG 

Als tweede is er de subroutine "GTTRIG". 
Dit betekent: GET STRIG. 

Deze subroutine wordt aangeroepen met 
CALL &H00D8 en dient om te kontroleren 
als de spatiebalk of een van de 
vuurknoppen op de joystick ingedrukt 
zijn, 

De input parameter is de accumulator die 
een van de volgende waarden moet 
bevatten: 
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0 spatie balk 

1 vuurknop nr 1 op joystick nr 1 

2 vuurknop nr 2 op joystick nr 1 

3 vuurknop nr 1 op joystick nr 2 

4 vuurknop nr 2 op joystick nr 2 

Als output parameter zal de accumulator 
gevuld warden met 255 als de bedoelde 
knop ingedrukt is, en met 0 als deze 
niet ingedrukt is. 

De registers AF,BC,DE en HL kunnen 
veranderd zijn na bet uitvoeren van deze 
subroutine en worden daarom best op de 

stack gepushd indien nodig! 
Onderbrekingen tijdens bet uitvoeren van 
deze subroutine zijn mogelijk! 

GTPAD 

De derde subroutine is "GTPAD”. Dit 
betekent GET PAD. 

Deze subroutine wordt aangeroepen met 
CALL &H00DB, en geeft de positie van de 
touch pad. 

Zoals bij de twee vorige subroutines is 
oak bier de accumulator de input 
parameter. Deze moet een waarde bebben 
tussen 0 en 7, indien de accumulator een 
waarde beeft tussen 0 en 3 gaat de 
informatie die terug komt over de touch 
pad in joystick ingang nr 1. Om 
informatie te krijgen over de touch pad 
in joystick ingang nr 2 moet de waarde 
van de accumulator tussen 4 en 7 zijn. 

Om te weten als de bedoelde touch pad is 
ingedrukt laadt men de accumulator met 0 
of 4. Om de Y coordinaat te weten te 
komen laadt men de accumulator met 2 of 
6. En om de X coordinaat te weten te 
komen laadt men de accumulator met 1 of 
5. Als men tot slot nog wil weten als de 
knop op de touch pad ingedrukt is laadt 
men de accumulator met 3 of 7. 

De output parameter is evenaIs de input 
parameter de accumulator. De waarde van 
de accumulator is afhankelijk van de 
waarde van de input parameter. 

Indien de input parameter 0 of 4 bevat 
wordt de accumulator met 0 gevuld als de 
touch pad ingedrukt is, met 255 als de 
touch pad niet ingedrukt is. Het zelfde 
geldt als de input parameter met 3 of 7 
gevuld was. 

Als de input parameter gevuld is met 1 
of 5 wordt de accumulator met de X 
coordinaat. Indien de input parameter 
gevuld is met 2 of 6 wordt de 
accumulator gevuld met de Y coordinaat. 
De registers AF,BC,DE en HL kunnen 
verandert worden door het gebruik van 
deze subroutine. Deze registers worden 
daarom best (indien nodig) op de stack 
gepushd, 

Evenals bij de twee vorige subroutines 
is ook bij deze subroutine onderbreking 
mogelijk. 


GTPDL 

Als laatste subroutine (met betrekking 
tot de joystick interface) is er 
"GTPDL". Dit betekent GET PADDLE, 

Men kan deze subroutine aanroepen met 
CALL &H00DE , Deze subroutine dient om 
een paddel (indien die aangesloten is) 
uit te lezen, 

De accumulator wordt weer gebruikt als 
input parameter en moet met een waarde 
tussen 0 en 12 gevuld zijn. Indien de 
paddel aan joystick poort nr 1 is 
aangesloten moet de accumulator een 
oneven getal bevatten, Als de paddel 
aangesloten is aan joystick poort nr 2, 
dan moet de accumulator een even getal 
bevatten. 

Als output wordt de accumulator gevuldt 
met een getal tussen 0 en 255, 
naargelang de status van de paddel. 

De registers AF,BC,DE en HL kunnen 
veranderd zijn na uitvoering van deze 
subroutine, Zij worden daarom best op de 
stack gepushd. 

Onderbrekingen zijn mogelijk tijdens bet 
uitvoeren van deze subroutine, 


BIOS SUBROUTINE* S DIE WERKEN MET DE 
PROGRAMMEERBARE SOUND GENERATOR. 

Evenals bij de subroutines die werken 
met de joystick interface vertoont ook 
de input van de subroutines die werken 
met de sound generator veel overeenkomst 
met de overeenkomende BASIC instrukties, 

Er zijn vier subroutines in de BIOS die 
werken met de sound generator. Dit zijn: 
GICINI, VRTPSG, RDPSG en STRTMS. 

Omdat bij de subroutines die werken met 
de sound generator enkele 
geheugenplaatsen van bet systeem RAM 
gebruikt worden geef ik hieronder een 
lijstje van de gebruikte namen van de 
geheugenplaatsen en bun adres in 
hexadecimaal. 

MUSICF &HFB3F PLYCNT &HFB40 
VCBA &HFB41 VCBB &HFB66 

VCBC &HFB8B 

GICINI 

Deze subroutine kan aangeroepen worden 
met CALL &H0090. Deze subroutine reset 
de sound generator, zodat indien er 
muziek aan het spelen was, deze 
onmiddelijk zal stoppen, A1 de sound 
registers worden dan in bun 
oorspronkelijke staat bersteld. 

Input parameters boeven bij deze 
subroutine niet gegeven worden. Er moet 
echter wel voor gezorgd zijn dat 
onderbreking niet mogelijk is! 
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Er zijn geen output parameters bij deze 
subroutine. 

Alle registers blijven in de staat die 
zij hadden voor het aanroepen van deze 
subroutine. De geheugen plaatsen PLYCBT, 
HUSICF, VCBC tot VCBC+4, VCBB tot VCBB+4 
en VCBA tot VCBA+4 worden op nul gezet. 
VAARSCHUWIHG! !! Na het aanroepen van 
deze subroutine is het best 
onderbrekingen weer mogelijk te maken, 

VRTPSG 

De subroutine ”VRTPSG" kan aangeroepen 
worden met: CALL &H0093, 

Deze subroutine schrijft een bepaalde 
waarde in een bepaald register van de 
sound generator. Deze waarde en de 
register kan men zelf naar keuze 
bepaXen. 

Er moeten twee input parameters gegeven 
worden voor men deze subroutine 
aanroept. Dit zijn; de accumulator die 
het nummer van de sound register moet 
bevatten en het register E dat de waarde 
moet bevatten die in het sound register 
moet geschreven worden. De waarde van de 
accumulator mag echter niet hoger zijn 
dan 13. 

Zoals u mischien wel had verwacht zijn 
er bij deze subroutine geen output 
parameters. 

A1 de registers blijven in hun 
oorspronkelijke staat zodat daar geen 
voorzorgen moeten genomen worden. 

In het begin van het uitvoeren van deze 
subroutine is geen onderbreking 
mogelijk, Saar het einde toe is dit 
echter wel mogelijk. 

Indien men meer wil weten over de 
effekten van het schrijven naar de sound 
registers moet men eens het artikel over 
de PSG in het december nummer <1985) 
lezen. Dit artikel is daar zeer 
duidelijk over, Er staat o.a. in hoe men 
de drie verschillende stemmen 
onafhankelijk van elkaar kan 
programmeren. 

RDPSG 

Als derde is er de subroutine "RDPSG M . 
Deze subroutine is de tegenhanger van de 
vorige subroutine, Hlj leest namelijk de 
inhoud van een van de sound registers. 

De subroutine "RDPSG M kan aangeroepen 
worden met: CALL &H0096. 

Input parameter; De accumulator moet het 
nummer van de gewenste sound register 
bevatten. Dat wil zeggen dat het getal 
in de accumulator niet groter mag zijn 
dan 13, 

Output parameter: De accumulator zal 
gevuld worden met de inhoud van de 
gewenste sound register. De waarde van 


de accumulator is dus volledig 
afhankelijk van de sound register die 
geraadpleegd is! 

Het enige register dat verandert word na 
uitvoering van deze subroutine is de 
accumulator. 

In het begin van deze subroutine is geen 
onderbreking mogelijk. Baar het einde 
toe is onderbreking echter wel mogelijk. 
Deze subroutine kan bijv. gebruikt 
worden am te kijken als een bepaalde 
stem aanstaat. Men kan er echter nog 
veel meer mee doen. 

STRTMS 

Deze subroutine n STRTMS” start de 
muziek. Dit gebeurt echter alleen als 
daar eerst de nodige sound registers 
voor gevuld zijn. Indien dit niet 
gebeurt is kan er ook geen muziek (of 
weIk ander geluidseffekt dan ook) 
gestart worden. 

Deze subroutine kan aangeroepen worden 
met: CALL &H0099 

Input parameters; Er moeten voor deze 
subroutine geen input parameters 
ingegeven worden. 

Output parameters: De accumulator zal 
gevuld zijn met nul als de sound buffer 
leeg is. 

De registers AF en HL kunnen veranderd 
worden na het gebruik van deze 
subroutine. Ook de geheugen plaatsen 
MUSICF en PLYCNT kunnen verandert worden 
door het gebruik van deze subroutine. 

Men moet er wel rekening mee houden dat 
de muziek of geluids effekten slechts 
zullen starten bij de eerstkomende 
onderbreking. 


BIOS SUBROUTINE'S DIE VERKEB MET DE 

CASSETTE INTERFACE! 

Voor de cassette interface zijn er in de 
BIOS zeven subroutines, Dit zijn TAPIOB, 
TAPIB, TAPIOF, TAPDON, TAPOUT, TAPOOF en 
STMOTR. 

Deze cassette interface is uiteraard 
bedoeld om gegevens van en naar de 
cassete te transporteren. Doch als men 
een beetje een elektonika-hobbyist is, 
is het zeer goed mogelijk daar andere 
apparaten op aan te sluiten. Eventueel 
is het zelfs mogelijk twee MSX computers 
langs deze weg te verbinden. 

De BIOS subroutines die werken met de 
cassette interface kan men a, a, zeer 
goed gebruiken om een laadt programma te 
maken. Dit laadt programma kan daarna 
goed gebruikt worden om uw zelfgemaakte 
programmes te beveiligen. 
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Voor men deze subroutines gaat gebruiken 
is het veilig dat men eerst een leeg 
cassettebandje in de cassette recorder 
stopt, Anders loopt men mischien bet 
risico een of ander eerder opgenomen 
programma te overscbrijvent 

TAPION 

De subroutine ”TAPION” is aan te roepen 
met: CALL &H00E1 

Deze subroutine leest de kop van bet 
cassettebandje nadat de motor is 
aangezet. 

Input parameters: Bij deze subroutine is 
natuurlijk geen input parameter. 

Output parameter: Output parameters zijn 
er ook al niet, Enkel wanneer de 
operatie mislukt is zal de carry flag 
gezet worden. 

De inhoud van de registers AF, BC, DE en 
HL kunnen door bet uitvoeren van deze 
subroutine verandert worden, Daarom is 
het aan te raden deze registers op de 
stack te pushen voor men deze subroutine 
aanroept. 

Onderbrekingen tijdens bet uitvoeren van 
deze subroutine zijn niet mogelijk. 

TAP IN 

AIs tweede subroutine is er "TAPIN’'. 

Deze subroutine kan aangeroepen worden 

met: CALL &H0OE4 

Dit is een zeer goed bruikbare 

subroutine. Hij leest namelijk een byte 
van het cassettebandje. 

Input parameters: Net zoals bij de 
vorige subroutine is ook bier geen input 
parameter vereist. 

Output parameters: De accumulator zal na 
het korrekt uitvoeren van deze 
subroutine de gelezen byte als inhoud 
hebben. Indien het uitvoeren van deze 
subroutine door een of andere reden niet 
gelukt is zal de carry flag gezet 
worden, 

De registers AF, BC, DE en HL kunnen 
door het uitvoeren van deze subroutine 
veranderen in waarde. Het is dus aan te 
raden deze registers op de stack te 

push*a.;SMv 

Evenals bij de vorige subroutine is ook 
bij deze subroutine geen onderbreking 
mogelijk. 

TAP IOF 

De subroutine "TAPIOF" is een zeer 
eenvoudig te gebruiken subroutine. Het 
enige effekt dat deze subroutine heeft, 
is dat het lezen van het cassettebandje 
gestopt wordt. 

Deze subroutine kan aangeroepen worden 
met: CALL &H0OE7 


Input parameters: Bij deze subroutine 
zijn er geen input parameters. 

Output parameters: Output parameters 
zijn er evenmin als input parameters. 
Geen enkel register of geheugenplaats 
wordt door de2e subroutine veranderd van 
waarde. 

TAPOON 

De subroutine "TAPOON” kan aangeroepen 
worden met: CALL &H00EA 
Nadat de cassettemotor aangezet is 
schrijft deze subroutine een kop naar 
het cassettebandje. Dit kan naar keuze 
een lange of een korte kop zijn. 

Input parameter: De accumulator moet met 
een getal groter dan 0 gevuld zijn als 
men een lange kop verkiest. Indien men 
een korte kop verkiest moet de 
accumulator met 0 gevuld warden. 

Output parameters: Bij deze subroutine 
worden geen output parameters gegeven. 
Indien het uitvoeren van deze subroutine 
echter door een of andere reden niet 
gelukt zou zijn wordt de carry flag 
gezet. 

De inhoud van de registers AF, BC, DE en 
HL kunnen door het uitvoeren van deze 
subroutine veranderd worden in waarde. 
Daarom is het aan te raden deze register 
op de stack te pushen. 

Onderbreking zijn tijdens deze 
subroutine mogelijk. 

TAPOUT 

De subroutine "TAPOUT" is juist het 
tegenovergestelde van de subroutine 
"TAPIN’’. Deze subroutine schrijft een 
byte naar het cassette bandje. 

Men roept deze subroutine aan met: CALL 
&H00ED 

Input parameter: De accumulator moet 
gevuld zijn met de byte die naar het 
cassettebandje moet geschreven worden. 
Output parameters: Zoals u wel verwacht, 
wordt bij deze subroutine geen output 
parameter gegeven. Indien het uitvoeren 
van deze subroutine door een of andere 
reden niet zou gelukt zijn wordt de 
carry flag gezet. 

De registers AF, BC, DE en HL kunnen na 
het gebruik van deze subroutine in 
waarde verandert zijn. Deze registers 
kan men daarom best op de stack pushen. 
Dit hoeft echter niet als deze registers 
niet gebruikt worden. 

Onderbrekingen zijn bij deze subroutine 
mogelijk. 
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TAPOOF 

De subroutine "TAPOOF" kan aangeroepen 

worden met: CALL &H00F0 

Het enige dat deze subroutine doet is 

het schrijven naar het cassettebandje 

stoppen. 

Input parameters; Voor deze subroutine 
is er geen input parameter vereist. 
Output parameters: Output parameters 
worden niet gegeven bij deze subroutine. 
Geen enkel register wordt door het 
uitvoeren van deze subroutine veranderd 
van waarde. Zodat daarmse geen rekening 
raoet gehouden worden. 

STMOTR 


De subroutine M STMOTR" doet het zelfde 
als de instruktie KOTOR. Dat is <vaor 
diegene die dlt niet weten) de motor van 
de cassette recorder aan of uit zetten. 
Input parameters: De accumulator wordt 
gebruikt als input parameter, Indien de 


accumulator op nul gezet is zal de 
cassettemotor afgezet worden. Indien de 
accumulator op 1 gezet is zal de 
cassettemotor aangezet worden. En de 
laatste mogelijkheid is het omschakelen 
van de cassettemotor. Dit kan gedaan 
worden door de accumulator op 255 te 
zetten. Met omschakelen wordt bedoeld 
dat de motor aangezet wordt als hiJ af 
stond en afgezet als hij aanstond. 
Alleen de register AF kan na het 
gebruiken van deze subroutine veranderd 
zijn. 


Tekens en sprites definieren 

in Hexcode 




TIG. 1 



TtG.3 



2 

4 

8 

4 

F 

8 

4 

o 



De hier besproken subroutines zijn 
slechts een klein deel van het totale 
aantal subroutines die in de BIOS 
aanwezig zijn. Die andere subroutines 
zal ik in een volgend artikel wel eens 
bespreken. 


MARTIN BUYSSE 


Zie voor listing pag.31 

MSX-ers die wel eens op een TI99/4A 
gewerkt hebben kennen natuurlijk de 
snelle, makkelijke en overzichtelijke 
tnanier van deze computer om tekens te 
(her)definieren. Met onderstaande 
routine is het mogelijk deze methode ook 
op de MSX toe te passen en, wat 
misschien nog wel leuker is, deze 
methode is ook geschikt voor het raaken 
van sprites. Voor diegenen die deze 
methode niet kennen volgt hier een korte 
uitleg. 

In een raster, dat bestaat uit twee 
rijen van elk acht lagen (die elk weer 
uit 4 vakjes bestaan), wordt een figuur 
ontworpen. (fig. 1). 

Door nu voor elke combinatie van 4 
ylakjes in de tabel het code-teken te 
zoeken en deze code-tekens op volgorde 
-achter elkaar- te plaatsen ontstaat een 
hex. code van 16 tekens (fig.3). 
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Nu zetten we deze code in de variabele 
H$ en de ASCII code van het te 

definieren teken -of het nummer van de 
sprite- in de variabele AS. 

Voila, de computer doet de rest. 

Laten we fig. 2 als voorbeeld neraen. De 
regel: 

H$="42241824FF182400":AS=65:G0SUB _ 

verandert de hoofdletter "A" in een 
"space-invader'. De regel: 

H$="42241824FF182400" :AS=5:G0SUB_ 

doet hetzelfde met sprite 5. 

De routine herkent alle waardes voor AS 

lager dan 30 als sprites. De routine 
werkt alleen in SCREEN1; de opdracht 
SCREEN1 zet alle patronen weer in de 
oude stand. 

Wanneer het nodig is om tekens onder de 
30 te definieren dan dient voor B de 
waarde 7 ingevuld te worden en naar de 

tweede regel van de routine gesprongen 
te worden (GOSUB.. .+10) . 

Het gebruiken van deze routine in andere 
SCREEN-mode's gaat op dezelfde manier en 
voor B dienen dan de volgende waardes 
ingevuld te worden: 

SCREEN 0 - B=2 (alleen tekens) 

SCREEN 2 - B=14 (alleen sprites) 

SCREEN 3 - B=17 (voor tekens) 

SCREEN 3 - B=19 (voor sprites) 

0m te voorkomen dat telkens, als het 
spriteforraaat wordt gewijzigd, alles 
opnieuw gedefinieerd moet worden (SCREEN 
zet alles terug in de "default" stand) 
wordt het spriteforraaat bepaald met de 
VDP(X) opdracht. 

Formaat 1 VDP(l) - 224 
Formaat 2 VDP(l) =225 
Formaat 3 VDP(l) = 226 
Formaat 4 VDP(l) =227 

c.c.r. Poirot, vervolg pag. 31 


DEF FN = DEFINIEER FUNCTIE 

Men kan met MSX-basic subroutines 
aanroepen om een bepaalde functle meerdere 

malen te gebruiken. Bijvoorbeeld met GOSLFB 
100 en dan staat op regel 100 A=SQR(B): 
RETURN, Zoiets als dit komt in elk goed 
programma wel voor. Als U heeft opgelet 
zult U vaak hebben zien staan IF A$<>"J” 
AND A$<>" j" THEN GOTO ... enz. En dat dus 
meerdere malen in een programma. Lezers, 
dat kan beter. Telkens als er een 
combinatie van BASIC-opdrachten achter 
elkaar in een programma voorkomt, ook al 
is het maar twee keer dan, maken wij daar 
in het vervolg een subroutine van die door 
middel van GOSLFB wordt aangeroepen. Dit 
spaart kostbare geheugenruimte. Men kan in 
plaats van GOSUB, in bepaalde gevallen, 
ook nog lets anders gebruiken; nl. DEF FN. 
Het gebruik van DEF FNxx en de daarbij 


behorende FNxx is niet zo makkelijk als 
GOSUB 100. Eerst het voorbeeld. Aan het 
begin van het programma, na de regel 

waarin de CLEAR, DIM en DEFINT opdrachten 
staan, komt de regel waarin U de functie 
definieert. 

20 DEF FN HAP$ (A$) = LEFT$ (A$, (INSTR 
(A$, CHR$(47) ) -1)) 

30 DEF FN KAP$ (A$) = RIGHT$ (A$, (LEN(A$) 
- (INSTR (A$,CHR$(47) )))) 


50 A$="BOER/ER/LIGT/EEN/KIP/IN/'T/WATER" 

60 PRINT A$ 

70 B$=(FN HAP$(A$)): A$=(FN KAP$(A$)) 

80 PRINT B$: PRINT: PRINT A$ 

90 B$=(FN HAP$(A$)): A$=(FN KAP$(A$)) 

95 PRINT B$: PRINT: PRINT A$ 

Zo dat was een hele HAP. In regel 20 is A$ 
een zogenaamde DUMMY; d.w.z. er wordt 
niets mee gedaan! Pas als de functie wordt 
aangeroepen krijgt deze betekenis. De 
uitleg: CHR$(47) is het schuine streepje 
en met INSTR wordt gekeken of deze in de 
string aanwezig is. Als deze aanwezig is 
krijgt INSTR de waarde van de positie van 
het gezochte teken in de string en ten- 
slot te wordt met LEFT$ een stuk van A$ 
gecopieerd in de DUMMY A$. In regel 70 

wordt de functie aangeroepen en de waarde 
van de DUMMY wordt in B$ gezet. In regel 
30 gebeurt ook zo lets; echter helemaal 
anders. In deze functie wordt weer gezocht 
naar het schuine streepje, maar hier wordt 
het resterende deel -RIGHT$ dus- van de 
string in de DUMMY A$ gezet. En in regel 
70 wordt dit gedeelte van A$ benoemd tot 
A$. En als U opgelet heeft ziet U dat ik 
de functies twee keer heb aangeroepen, 
eigenlijk had ik er dus een subroutine van 
moeten maken maar dit voorbeeld is op 
zich al ingewikkeld genoeg omdat er nogal 
wat dingen direct op elkaar inwerken. 

Dit voorbeeld gaat uit van het werken met 
strings maar er raogen ook rekenkundige 
bewerkingen mee worden gedaan. 

110 DEF FN PEERTJES (X)=X*3/3.5 

130 Y=FN PEERTJES (12) 

140 PRINT Y 

150 Z=FN PEERTJES (FN PEERTJES (12) ) 

160 PRINT Z 

De door U gedefinieerde functie mag elke 
naam hebben maar kijk uit voor de 
BASIC-keywords, die U niet mag gebruiken, 
en let ook op dat elke naam maar een keer 
een functie met dezelfde naam definieerd. 

FN HANGMAT is dus hetzelfde als FN HALLO 
omdat er alleen op de eerste twee letters 
wordt gelet! 

Ik raad U aan deze mogelijkheid met bijde 
handen aan te pakken, er wordt ruimte en 
dus tijd bespaard, de programma"s ogen een 
flink stuk professioneler en het wordt 
overzichtelijker! Een GOSUB 100 vertelt 
mij alleen wat er gebeurt als ik in dat 
stuk van het programma ga kijken of als ik 
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dat nog onthouden heb, raaar een FN APPEL$ 
vertelt mij dat daar ter plaatse even lets 
uitgevoerd wordt wat de programmeur de 
APPEL $~functie heeft genoemd. 

ON STOP GOSUB 

Elk programma dat met de MSX computer 
wordt uitgevoerd zal waarschijnlijk ook 
wel eens worden gestopt. Bij spelletjes 
Is er niets van belang wat aan 

informatie verloren kan gaan, de 
puntentelling kan op een papiertje 
worden geschreven, en morgen begint men 
weer bij het eerste speelveld, met nul 
punten! Anders is het met een adressen- 

bestand. Het komt vaak voor dat, als de 
gebruiker wil stoppen, dit alieen kan 

via het menu. Dan kan, vanuit het 
programma, de gebruiker er nog eens op 
worden gewezen dat de gegevens nog in 
het geheugen staan en nog niet op DISK 
of Cassette. Het wordt ernstiger als de 
gebruiker botweg de "RESET" knop 
indrukt, en de MSX zich keurig meldt met 
"Ok”! ( De meeste MSX computers hebben 

geen reset zoals andere computers, maar 
een CTRL-STOP ) De gegevens staan dan 

nog in het geheugen maar om de gevens 
naar DISK over te hevelen moet het 
programma lopen, en als het programma 
gestopt is en door middel van RUN weer 
gestart is wordt meestal eerst de 
geheugenruirate voor de variabelen 
"schoon" gemaakt. Die oude gegevens zijn 
dan weg! U ziet, het argeloos indrukken 
van CTRL-STOP kan verlies betekenen van 
belangrijke gegevens en/of berekeningen. 

Maar de MSX is zo doordacht opgezet dat 
zelfs hier weer mogelijkheden liggen om 
te ondernemen. De programmeur kan op 
zeer eenvoudige wijze voorkomen dat de 
computer reageert op het indrukken van 
de CTRL-STOP en wel zodanig dat de 
computer in een speciaal daarvoor 
gemaakt gedeelte van het programma 
terecht komt. Sommige spelletjes zijn 
met zoiets uitgerust om te 
voorkomen dat de gebruiker weer controle 
over de computer kan gaan uitoefenen en 
zodoende een bandcopy van het spel zou 

kunnen maken. 

De tekst die U nu leest is geschreven 
middels een MSX computer en als ik deze 

tekst op band wil wegschrijven dan druk 
ik op de CTRL-STOP en zie voor mij een 
keuze menu. Ook U kunt dit in Uw 
programma verwerken. Een eenvoudig 
voorbeeld: 

20 ON STOP GOSUB 1000 

40 PRINT "CTRL + STOP TEGELIJK 
INDRUKKEN 

50 BEEP: GOTO 40 

1000 REM SUBROUTINE CTRL-STOP 

1010 PRINT: PRINT " EVEN EEN MOMENT 

STILTE" 

1020 A$“INKEY$: IF A$=CHR$(32) THEN 
RETURN ELSE IF A$=CHR$(3) THEN END 
1030 GOTO 1020 


RUN dit en zie dat het niet werkt! 

Eerst moet dit statement worden 
geactiveerd. 

30 STOP ON 

RUN dit opnieuw en merk, dat als nu op 
de CTRL en tegelijk op de STOP toets 
wordt gedrukt, de herrie ophoudt. Het 
zou kunnen zijn dat alieen in een 
bepaald gedeelte van het programma dit 
soort maatregelen nodig zijn; dan zou 
voor dat gedeelte een STOP ON kunnen 
worden gegeven en na dat gedeelte, als 

het niet meer van belang is, een STOP 
OFF. Er is ook nog een mogelijkheid om 
niet meteen de subroutine uit te voeren 
als op de knoppen wordt gedrukt raaar 

slechts als een bepaald gedeelte van het 
programma is doorlopen. 

20 ON STOP GOSUB 1000 
30 STOP ON 

40 FOR A=1 TO 100: PRINT "CTRL + 

STOP TEGELIJK INDRUKKEN BEEP: 

PRINT A: NEXT A 
50 STOP OFF 

60 FOR A= 1 TO 100: PRINT "NU WORDT 
ER GEEN SUBROUTINE AAN GER0EPEN”: 

PRINT A: NEXT A 

70 STOP ON: STOP STOP 

80 FOR A=1 TO 100: PRINT"DRUK METEEN 

ALS U DIT ZIET OP CTRL-STOP: PRINT 

A: NEXT A: STOP ON 

90 CLS: GOTO 30 

1000 REM SUBROUTINE CTRL-STOP 
1010 PRINT: PRINT ” U HEEFT OP 

CTRL-STOP GEDRUKT !” 

1020 A$=INKEY$: IF A$=CHR$(32) THEN 
RETURN ELSE IF A$=CHR$(3) THEN END 
1030 GOTO 1020 

RUN het hierbovenstaande en merk het 
verschil op tussen STOP STOP, STOP ON en 
STOP OFF. Als U ook de beschrijving 
leest van het statement ON INTERVAL^xx 
GOSUB dan zult U verwachten dat in de 
subroutine zelf een STOP STOP en aan het 
eind van de subvroutine en voor RETURN 
een STOP ON zou behoren te staan. Dit is 
wonderwel niet nodig, als de computer in 
de "STOP GOSUB"- routine zit dan is het 
niet nog eens mogelijk ora ook uit dit 
stuk van het programma te springen. Het 
programma zou dan weer bij het begin van 
de routine raoeten beginnen waar deze net 
aan is begonnen! Dit is door de 
ontwerpers van de BASIC van de MSX al 
onderkend, en er is rekening mee 
gehouden. \ 

Samenvatting: 

met ON STOP GOSUB kan een programma 
tegen het indrukken van de CTRL-STOP 
worden beveiligd. Zorg er voor dat het 
programma ook vanuit de subroutine te 
stoppen is. Bijvoorbeeld d.m.v. een 
code. In regel 1020 wordt gewacht op de 
spatie, maar als CTRL-C wordt ingedrukt 
wordt er alsnog gestopt. Is er geen 
mogelijkheid om te stoppen dan biedt de 
RESET knop uitkomst, maar dan zijn de 
gegevens wel weg! De routine kan niet 
worden aangeroepen met de RESET—knop. 
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Even tcrua naar G1DS nr.3 en nr.2 


GOLD DIGGER 

Wie Gold digger voor de tweede keer 
speelt wordt in ronde 4 geconfronteerd 
met een sprite uit veld 5 die op een 
onmogelijke plaats verschijnt. Deze is 
weg te krijgen door de volgende regel in 
het programma op te nemen: 

4455 PUT SPRITE 8,(0,209) 

Dit is echter niet de juiste oplossing 
daar we nog niet weten waarora deze 
sprite in deze ronde verschijnt. 

Wie geeft ons de oplossing van dit 
vraagstuk? 

Een lezer belde ons op met het verhaal, 
dat hij en zesde veld had bijgeraaakt en 
daar plaatseljk een andere kleur dan 
kleur 12 had gebruikt. Lopen op deze 
kleuren kan wel; springen echter niet. 
Dit maakt het spel extra moeilijk, 
vooral als voor deze kleur b.v. kleur 2 
wordt gebruikt. Er is nauwelijks 
verschil te zien tussen de kleuren 12 en 
2, maar je krijgt zo wel leuke "zwakke 
plekken" in het veld. 

STUNTVOGEL 

STUNTVOGEL VELD 7 

Dit veld, van H.Smeenge, is gedeeltelijk 
opgezet met onderkasten (kleine letters) 
waardoor de L en de 1 er hetzelfde 
uitzien. In regel 10180 moeten de 
getallen 513,714 en 713 vervangen worden 
door 5L3,7L4 en 7L3. Ditzelfde moet 
gebeuren in regel 10290. In regel 10250 
moet het getal 3110 vervangen worden 
door 3L10. Sorry! Dit ligt niet aan de 
maker van het progamma, maar aan het ge- 
bruikte lettertype. Bij deze letter- 
schijf zijn de 1 en de 1 exact gelijk. 
Dit komt erg vaak voor bij een heleboel 
printers en het is derhalve aan te raden 
bij dit soort instrukties alleen 
H00FDLETERS te gebruiken! 

TEKENPROGRAMMA 

TEKENPROGRAMMA NAAR DISK 

0m het tekenprogramma geschikt te maken 
voor diskdrive dienen de volgende regels 
veranderd te worden: 

20 CLEAR 300,41000:DEEINT A-Z 

85 DEF USR 0=41001:DEF USR 1=41021 

86 FOR I#=41001 TO 41013 
88 FOR I#=41021 TO 41033 
92 DATA 11,8F,A3 

95 DATA 21,8F,A3 

4050 Y$="A:"+LEFT$(X$,6) 

4100 BSAVE Y$,&HA38F,&HDB8F 
5050 Y$= M A:"+LEFT$(X$,6) 



Uiteraard kan dan nog het aantal letters 
naar 8 worden uitgebreid; mag wel, hoeft 
niet. 

0m een tekening met de "S"-optie direkt 
naar het scherm te BLOADen, dient een 
BSAVE vanuit het tekenscherm opgenomen 
te worden, die direkt het videogeheugen 
naar cassette/diskette zet. Wel even 
puzzelen, maar wel erg makkelijk om 
plaatjes direkt op het scherm te 
krijgen, zonder hiervoor het RAM- 
geheugen te belasten. Vooral voor disk- 
gebruikers is deze oplossing erg snel en 
aantrekkelijk. 

Hiervoor dient een extra 'toetsaftas- 
ting" geschreven te worden plus een 
BSAVE- opdracht (met de S-optie). Vanuit 
elk willekeurig programma kunnen nu deze 
plaatjes ingelezen worden met een BL0AD 
(ook weer met S-optie), mits ook hier 
weer het programma, op dat moment, in de 
juiste SCREEN-mode staat. 

MASTERMIND 


AANVULLTNG MASTERMIND 


Van Pierre Parisis is hier een 
aanvulling op het programma "Mastermind'' 
uit Gids nr.2 

Wanneer de combinatie niet wordt 
gevonden krijgt de speler deze ook nooit 
te zien. De volgende routine brengt 
daarin verandering. 

1045 G0SUB 1500 

1060 I$=INKEY$:IF I$="J" THEN 1075 
1075 G0SUB 1600 

1500 DRAW"BM137,107":?#1,"MIJN KEUZE:” 
1505 REM TEKEN COMPUTERS KEUZE 
1510 CIRCLE(140,120),3,C(1):PAINT(140, 
120),C(1) 

1520 CIRCLE(153,120),3,C(2):PAINT(153, 

120),C(2) 

1530 CIRCLE(166,i20),3,C(3):PAINT(166, 
120),C(3) 

1540 CIRCLE(179,120),3,C(4):PAINT(179, 
120),C(4) 

1550 RETURN 

1600 REM WIS COMPUTERS KEUZE 

1610 CIRCLE(140,120),3,C(0):PAINT(140, 

120),C(0) 

1620 CIRCLE(153,120),3,C(0):PAINT(153, 
120),C(0) 

1630 CIRCLE(166,120),3,C(0):PAINT(166, 
120),C(0) 

1640 CIRCLE(179,120),3,C(0):PAINT(179, 
120),C(0) 

1650 RETURN 


BEN JE NOG DP ZOEK NAAR DUDE NUMMERS VAN 
DE NSX GIDS? NEEM DAN EVEN K0NTAKT OP MET 
DE UITGEVERIJi TEL. 020-327464 
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hoort bij pag.28/29 

Beeldscherm: WIDTH 36 


10 C0L0R15,1,1:SCREEN1,1:CLS 
20 LOCATE 10,5s PRINT"A A A A A' 1 
30 GOSUB 140 

40 PUT SPRITE 1,(124,90),15 

50 H$= ” 42241824FF1B2400 11 

60 AS=65:GOSUB 1000 

70 AS=5;GOSUB 1000 

80 FOR I1-1TO10 

90 VDP(1)=224 

100 GOSUB 140 

110 VDP(1)=225 

120 NEXTI1:GOTO10 

140 FOR 1 = 1 TO 50s NEXT IsRETURN 

998 > 

999 p ROUTINE 

1000 IF AS<30 THEN B=9 ELSE B=7 
1010 C5=BASE<B)+AS*B:X=1 

1020 FOR Q=0 TO 7 

1030 Q»="SiH"+MIDS(HS,X,2) 

1040 VPOKE (CS+Q) , VAL '< Q$) 

1050 X=X+2:NEXT QsRETURN 


moeten worden voordat opnieuw de 
subroutine door- lopen mag worden) maar 
10 * 50. Het getal 50 staat voor de 
interupt-frequentie en deze kan voor 
sommige computers best wel eens 60 Hz 
zijn! In Japan en de Verenigde Staten is 
de lichtnet- frequentie 60 Hz en voor 
die landen worden dan ook andere 
computers gemaakt; en voor het tiental 
mensen in de rest van de wereld dat zo'n 
computer heeft geldt het volgende: ON 

INTERUPT* 10 * 60 GOSUB 1000, Als U zo"n 
computer heeft kan het voorkomen dat 

deze uit de pas gaat lopen en voor BASIC 
toepassingen kunt U 't getal delen door 
50 en verraenigvuldigen met 60. Helaas 
geldt dit dan alleen voor de ON 
INTERVAL, en niet voor alls andere 
TIMING gevoellige functies. 

Er kan ook meer dan een routine, worden 
opgeroepen na het verstrijken van een 
vooringestelde tijd. Echter is er maar 1 
INTERVAL ON en INTERVAL OFF. Er is ook 
nog een mogelijkheid ora tijdelijk WEL te 
tellen maar voor dat moment de routine 
NIET uit te voeren en dat is INTERVAL 
STOP. Dan wordt direct na het INTERVAL 
ON commando, en als het de tijd daarvoor 
is, de subroutine uitgevoerd. Ook moet 
aan het begin van de subroutine staan 
INTERVAL STOP en aan het eind INTERVAL 
ON. Regel 1000- behoort dus te wezen: 

1000 REM SUBROUTINE 

1010 INTERVAL STOP 

1020 CLS: PRINT "10 SEC0NDEN" 

1030 INTERVAL ON: RETURN 

IN regel 1010 staat INTERVAL STOP maar 
dit hoeft niet! Als het niet wordt 
vermeld wordt het toch beschouwd als 
zodanig. Er mag echter wel een INTERVAL 
STOP/OFF worden geplaatst. Ook hoeft in 
1030 de interval niet aangeschakeld te 
worden, maar als aan het einde van de 
subroutine een INTERVAL OFF staat, als 
aan een voorwaarde niet voldaan zou 
zijn, dan wordt daar weer wel op gelet! 

Als het wordt weggelaten wordt het 
beschouwd als een INTERVAL ON, echter 
alleen als in de subroutine niet staat 
INTERVAL STOP/OFF. 

Tijdens de ON ERROR GOSUB is ON INTERVAL 
GOSUB niet van toepassing, er wordt 
gewacht totdat de computer is 
teruggekeerd in het normale gedeelte van 
het programma. 

ON INTERVAL* sec. * freq. GOSUB is een 
bijzonder handig hulpmiddel om op 
bepaalde tijden, ongeacht welk deel van 
het programma wordt uitgevoerd, een 
subroutine uit te voeren, denk hierbij 
aan puntentelling elke 5 sec. opnieuw 
boven in beeld of het tonen van de tijd 
hoelang men al met een bepaald programma 
heeft gewerkt. Het is niet mogelijk om 

met deze mogelijkheid te werken tijdens 
het invoeren van programma''s of het 
laden en wegschrijven of als het 
programma in een ERROR-routine zit. 
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ON INTERVAL GOSUB 


ON INTERVAL GOSUB 

Met ON INTERVAL kan elke keer dat een 
bepaald aantal 1/50 secondes is 

verstreken een subroutine worden 
uitgevoerd. Het gebruik is eenvoudig; 
aan het begin van het programma, blj 
CLEAR, DIM, DEFINT A-Z plaatst U de 
regel: 


20 ON INTERVAL=10 * 50 GOSUB 1000 
30 REM 

50 PRINT "HET PROGRAMMA LOOPT ";: 
GOTO 30 

1000 CLS: PRINT "TIEN SEC0NDEN ZIJN 
VOORBIJ": BEEP: RETURN 


RUN dit en zie dat er nog niets gebeurt! 
We hebben de computer opdracht gegeven 
om, telkens als deze 500 maal de 
interupt-puls heeft geteld, een 
"interval-puls” te maken. En met deze 
puls doet de computer nog niets omdat 
dat nog niet verlangt wordt. Ora ook 
werkelijk de routine uit te voeren moet 
dat worden opgedragen: 


30 IF INKEY$=CHR$(24) THENIF 
SELECTS THEN SELECTS) ELSE SELECT=1 
ELSE GOTO 40 

40 IF SELECT*1 THEN INTERVAL ON ELSE 
INTERVAL OFF 

Met dit stukje programma kunnen wij, met 
de SELECT-toets, de INTERVAL- routine 

zowel in als uit schakelen. U ziet in 
regel 20 niet het getal 500 staan (dat 
zijn de interupt- pulsen die geteld 









MACHINE'!'A AL OP DE MSX 


DEEL 2: EEN KIJKJE IN HET BREIN VAN UW 
COMPUTER. 

Misschien weet u nog dat vorige keer de 
term "microprocessor" is gevallen. De 

microprocessor is een chip die het re- 
kenorgaan van uw computer bevat en te- 
vens alle geheugenbewerkingen verzorgt. 
Behalve dat de microprocessor uitwendig 

geheugen kan besturen, heeft de micro¬ 
processor ook de beschikking over inwen- 

dige geheugenplaatsen, registers ge- 
naamd. 

Wahneer u een machinetaalprogramraa 
schrijft, programmeert u de microproces¬ 
sor. In ons geval -op een MSX-machine- 
is dat de Z80 microprocessor. Dit is een 
zeer fijn te programmeren microprocessor 
omdat de Z80 een zeer uitgebreide in- 
structieset heeft. De voordelen daarvan 
heeft u bij het BASIC programmeren wel 
gemerkt. Laten we de Z80, die we straks 
gaan programmeren, eens wat nader bekij- 
ken. 



In figuur l ziet u schematisch de regis¬ 
ters van de Z80 weergegeven. De regis¬ 
ters A,F,B,C,D,E,H en L zijn twee keer 
aanwezig. Het is mogelijk binnen een 

programma naar de tweede set registers 
over te schakelen, maar in het algemeen 
wordt van de raogelijkheid niet veel 
gebruik gemaakt. We zullen nu elk regis¬ 
ter de revue laten passeren. 

- De accumulator (A) en het flag-regis¬ 
ter (F) 

De accumulator (accu) is het rekenregis- 
ter van de Z80. Alle berekeningen worden 
in dit register uitgevoerd. Berekeningen 
die in de accumulator kunnen worden 
uitgevoerd zljn: 

- binaire optellingen 

- binair aftrekken 

- schuiven (alle bits 1 plaats naar 
links/rechts 

- roteren (als schuiven, maar nu vervalt 
het meest rechtse bit niet, maar komt 
op de meest linkse plaats terug) 

- logische bewerkingen (bier komen we 
later op terug) 


Steeds wordt de bewerking uitgevoerd met 
de inhoud van de accu, het resultaat 
wordt weer in de accu teruggeplaatst• In 
BASIC heeft zo"n bewerking de gedaante A 
=A+0ofA=A“C. 

De bits in het flag-register worden na 
iedere bewerking in de accu veranderd 
naar gelang het resultaat van die bewer¬ 
king. Een vlag, die van ”0" naar ”1" is 
veranderd, is "ge-set", de omgekeerde 
bewerking wordt het "reset-ten" van een 
vlag genoemd. Vlaggen worden in machine- 
taal toegepast, waar in BASIC if-then 
constructies worden gebruikt. 


FIGUUR 2: HET FLAG-REGISTER 
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Twee vlaggen zijn op dit moment voor ons 
van belang: 

Z: zero flag (nul vlag) de zero-flag 
wordt geset als de inhoud van de accu 

na een rekenkundige bewerking nul 
geworden is. 

C: carry-flag deze vlag wordt geset als 
de accu door een rekenkundige bewer¬ 
king een sprong van 0 naar 255 (of 
255 naar 0) heeft gemaakt. 

- De registers B,C,D,E,H en L 

Dit zijn de registers voor algemeen 
gebruik. Los gebruikt zijn het 8 bits 
registers. Het is echter ook mogelijk 
twee registers samen te nemen tot een 
16-bits register (BC, DE, HL) 
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- De programcounter (PC) 

Een machinetaalprogramma bestaat uit een 
geheugengebied dat gevuld is met 
getallen van 0 tot FF. 

Een machinetaalinstructie neemt 1 tot 4 
geheugenplaatsen in beslag. De program- 
counter bevat steeds het geheugenadres 
van de volgende instructie die moet 
worden uitgevoerd. 

- De stackpointer (SP) 

Een stack is een metalen pin voor op het 
bureau, waarop memo's, nota's e.d. kun- 
nen worden geprikt. Het briefje, dat je 
er het laatste opprikte, moet er ook 
weer als eerste af. De computer bewaart 
zijn gegevens op eenzelfde manier. Alle 
gegevens bevinden zich op geheugenplaat- 
sen vlak na elkaar. De stackpointer 
wijst naar het geheugenadres van de 
informatie die het eerst weggehaald moet 
worden. 

- De indexregisters IX en IY 

De 16-bits registers worden meestal 
gebruikt om een geheugenadres aan te 
wijzen waar data naar toe moet worden 
geschreven of van gelezen. 

De laatste twee registers zijn voorlopig 
niet van belang. 

- Het interrupt register (I) 

- Het refresh register (R) 


LD A, D betekent dus: 

Vul register A (de accu) met data uit 
register D. Register D verliest hierbij 
niet zijn inhoud; de data van register D 
wordt gekopieerd in register A. 

Load instrukties worden in machinetaal- 
programme's zeer veelvuldig toegepast. 
Dit is noodzakelijk omdat de Z80 maar 1 
rekenregister kent (de accumulator) en 
omdat verwerking van gegevens uit het 

geheugen alleen in de registers plaats 
kan vinden. 


Vb. Het BASIC programmaatje 

10 A = 10 
20 B = 20 
30 C = A + B 
40 D = A - B 


komt er in machinetaal zo uit te zien: 


LD A,10 
LD B,20 
ADD A,B 

LD C,A 

LD A,10 


SUB A,B 
LD D, A 


; vul register A met 10 
; vul register B met 20 
; tel register A en B op, het 
resultaat komt weer in A 
; vul register C met de in¬ 
houd van A 

; vul A opnieuw met 10 (de 
inhoud van A was door de 
optelling 30 geworden) 

; trek A en B van elkaar af: 

resultaat in A 
; vul D met de inhoud van A 


Machinetaalinstructies bestaan uit 
codes, getallen van 0 tot FF, die na 
elkaar in een geheugengebied staan. 

De microprocessor leest deze codes en 
voert de bijbehorende instructies uit. 
Bij het programmeren maken machinetaal- 
programmeurs gebruik van Engelse afkor- 

tingen, die de funktie van de verschil- 
lende codes duidelijk maken. Deze afkor- 
tingen worden mnemonics genoemd. 

Vb.JP komt van JUMP: spring naar een 
geheugenadres• 

LD komt van LOAD: vul (laad) een 
register met een getal 

Een machinetaalprogramma wordt ontworpen 
met mnemonics. Later worden de bijbeho¬ 
rende codes in een tabel opgezocht. Een 
computerprogramma dat het opzoeken van 
codes overneemt heet een assembler. Een 
disassembler zoekt de mnemonics bij de 
getallen van een bestaand raachinetaal- 
programma. 

Een van de belangrijkste Z80-machine- 
taalinstrukties is de LOAD instruktie. 
De LOAD instruktie vult geheugenplaatsen 
en registers met de inhoud van andere 
geheugenplaatsen en registers. De mnemo¬ 
nic behorende bij deze instruktie is, 
zoals we al zagen: LD. Achter "LD" zet- 
ten we de plaats van bestemming (regis¬ 
ter of geheugenplaats), een komma, en 
vervolgens de plaats waar de data van- 
daan komt. 


In het voorbeeld ziet u, dat u een re¬ 
gister niet alleen met de data uit een 
ander register kunt vullen, maar ook 
direkt met een 8-bits getal (0 t/m FF). 
Wanneer u een accumulator wilt vullen 
met de data van een geheugenplaats of 
een geheugenplaats met de inhoud van een 
accu, kunt u gebruik maken van twee 
instrukties, namelijk; 

LD A, (nn) 

LD (nn), A 

nn is de geheugenplaats waarvan u de 
data wilt lezen of veranderen. De haak- 
jes geven aan dat u niet het geheugena¬ 
dres zelf, maar de inhoud ervan in A 
wilt kopieeren. 

Samengevat: we kennen nu drie verschil- 
lende typen load-instrukties: 

1) Een register vullen met de inhoud van 
een ander register 

LD r,s waarbij voor r en s de 8-bits 

registers A,B,C,D,E,H en L in 
elke combinatie kunnen worden 
ingevuld. 

Vb. 58 LD E, B 
7C LD A, H 

2) Een register vullen met een getal 

LD r,n waarin r weer een 8-bits 

register is en n een 8-bits 
getal ( 0 t/m FF) 

Vb. 06 55 LD B,55 

2E FI LD L,Fl 

3) De accu vullen met de data van een 
geheugenplaats: LD A,(nn) 
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De inhoud van een geheugenplaats vullen 
met de accu: LD (nn), A 

Vb. 3A 80 CO LD A, (C080) 

32 00 90 LD (9000), A 
U zlet dat na de Instruktlecodes 3A en 
32 eerst de 8 laagste bits van de geheu¬ 
genplaats worden opgegeven en daarna pas 
de hoogste 8 bits. Het geheugenadres 
komt hierdoor a.h.w. omgekeerd in het 
machinetaalprogramma te staan. Door het 
toepassen van het hexadecimale getal- 
stelsel is het scheiden van de 8 hoogste 
en de 8 laagste bits zeer eenvoudig: u 
splitst het 4-cijferige geheugenadres in 
tweeen. 

In de accu kunnen rekenkundige instruk¬ 
ties worden uitgevoerd. Een van de re¬ 
kenkundige instrukties is de binaire 
optelling. De binaire optelling werkt In 
princlpe hetzelfde als bij decimale 
getallen. U dient zich echter te reali- 
seren dat 1+1 binair 10 oplevert en 
geen 2! 

Vb 1. 

In de accu worden de binaire getallen 
01001011 en 01100010 opgeteld. 

01001011 (4B) 

01100010 (62) 

- (+ 

10101101 (AD) 

We starten rechts met 
1 + 0 = 1 ==5> 1 opschrijven. 

1 + 1-10 ==i> 0 opschrijven, 1 onthou- 
den 

0 + 0 + 1 = 1 1 opschrijven enz. 

Vb 2. 

De accumulator kan slechts een 8-bits 
getal bevatten. Telt u twee getallen op, 
die een resultaat geven dat meer dan 8 
bits vergt om weer te geven, dan ont- 
staat een onverwachte situatie: 

De binaire getallen 11001011 en 10001000 
worden opgeteld: 

U001011 (CB) 

10001000 ( 88 ) 

- (+ 

1 01010011 (1 53) 

Bij het meest rechtse bit vinden we: 

1 + 1 = 10 -=> 0 opschrijven, 1 onthou- 
den 

Eigenlijk zou deze "1 onthouden" mee 
raoeten tellen bij het negende bit. Maar 
een negende bit is slmpelweg niet aanwe- 
zig. We krijgen nu een optelling, waar- 
bij het resultaat kleiner is dan de 
beide opgetelde getallen. Om de program¬ 
mer attent te maken op deze onjuiste 
situatie wordt de C-vlag geset. 

De Z80 kent twee instrukties voor een 
binaire optelling: ADD en ADC. De in- 
struktle ADD telt de inhoud van A bij 
een getal of register op. Bij ADC worden 
de inhoud van A, een getal of register 
en de C-vlag (die 0 of 1 is) bij elkaar 
opgeteld. (ADC staat voor Add with Car- 
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ry). In beide gevallen wordt het resul¬ 
taat teruggeplaatst in de accu en de 

vlaggen aangepast. 


Vb. 

80 ADD A,B 
C6 21 ADD A,21 
89 ADC A,C 
CE 12 ADC A,12 


reg A= 
reg A= 
reg A= 
reg A= 
+ 12 


reg A + reg B 
reg A + 21 
reg C +carry vlag 
reg A +carry vlag 


We besluiten deze les met een uitgewerkt 
voorbeeld hoe u een machinetaalprogramraa 
maakt, invoert in uw computer en RUNt. 

Opdracht: Maak een programma dat twee 8- 

bits getallen vanuit geheugen- 
plaatsen inleest, optelt en de 
som plaatst in een derde ge¬ 
heugenplaats. Een vierde ge¬ 
heugenplaats geeft aan of de 

carry vlag geset is. 

Uitvoering: Het machinetaalprogramma 
moet in RAM gebied worden geplaatst 
(8000-FFFF). We starten met een gedeelte 
BASIC, dus kunnen we niet 8000 als 
startadres nemen. 

Het gebied boven F000 wordt door de 
computer gebruikt. We kiezen als starta¬ 
dres: E000. 

We lezen de data van de geheugenplaatsen 
in met de instruetie LD A,(E100). Een 
ander register (bijvoorbeeld B) bewaart 
de inhoud van de eerste geheugenplaats 
wanneer we de tweede geheugenplaats 
(E101) inlezen. Met ADD A,B tellen we de 
inhoud van de beide geheugenplaatsen op. 
Het resultaat bevindt zich in de accu, 
dus kan met LD (E002),A direct de derde 
geheugenplaats gevuld worden. Wanneer we 
de accu en register B beide nul maken, 
1evert ADC A,B een 1 op in de accu als 
de carry vlag was geset en anders 0. De 
accu wordt nu de inhoud van de vierde 
geheugenplaats. Vervolgens keren we met 
RET (return) terug naar BASIC (of terug 
naar het Monitor/Editor programma uit 
MSX-Gids nr.3). 

Aan de hand van het bovenstaande idee 
wordt het programma ontworpen. Daarna 
worden de machinetaalcodes opgezocht in 


de 

tabel. 



3A 

00 

El 

LD 

A, (E100) 

47 



LD 

B,A 

3A 

01 

El 

LD 

A,(E101) 

80 



ADD 

A,B 

32 

02 

El 

LD 

(E102),A 

3E 

00 


LD 

A,0 

06 

00 


LD 

B, 0 

88 



ADC 

: A,B 

32 

03 

El 

LD 

(E103),A 

C9 



RET 


Een machinetaalprogramma wordt vanuit 

BASIC als volgt aangeroepen : 

DEFUSR = &HE000 een wijzer geeft het 

begin van het pro¬ 
gramma aan. 

A= USR (0) de sprong naar het 

adres aangegeven door 
de wijzer wordt ge- 


maakt 


(C) Junior 99 





Met een BASIC programma POKEn we eerst 
het machinetaalprogramma in het geheu- 
gen. Wanneer we de geheugenplaatsen E100 
en E101 hebben gevuld, roepen we het 
programma aan. 

Beeldscherro: WIDTH 36 


10 DEFUSR=&HE000:DEFINT I 
20 FOR I %- &HE000 TO &HE013 
30 READ A$:SOBUB 130!POKE I,A 
40 NEXT 

50 INPUT”le getal (hex ,>“5 A* 

60 GOSUB 130!POKE &HE100,A 
70 INPUT”2e getal (hex.V'sA* 

80 GOSUB 130! POKE &HE101,A 
90 A—USR (0) 

100 PRINT”De sotn is "HEX$ (PEEK (&HE10 
2 ) ) 

110 IF PEEK<&HE103)—1 THEN PRINT”Car 
ry vlag geset” 

120 PRINT:GOTO 50 

130 A=VAL("S<H ,, +A$) : RETURN 

140 DATA 3a,00,el,47,3a,01,el,80 

150 DATA 32,02,el,3e,00,06,00,88 

160 DATA 32,03,el,c9 

De volgende keer: Bios Calls (Microsoft 
maakt het ons gemakkelijk). 

Tot dan, Marc Spierenburg. 

OVERIJSSEL 
PER HELICOPTER 

EEN MSX-VERSIE VAN HET BEKENDE SPEL 
'TOPOGRAFIE" DOOR RICHARD ALTENBURG. 

Daar het spel enige maanden geleden 
gemaakt is, is ook de Noord-Oost polder 
in de kaart opgenoraen, terwijl deze 
gemeente nu bij Flevoland hoort. 

Het programma. 

De belangrijkste variabelen zijn: 

AA: bepaalt de kleur van de tijdbalk 
(eerst zwart, op het laatst rood). 

AP: het aantal gevonden plaatsen. Elke 
plaats levert 250 punten op. Na 8 plaat¬ 
sen wordt overgegaan naar een volgend 
niveau. 

BB: 0=toetsen l=joystick. 

BO: het aantal bonusseconden. Dit wordt 
bepaalt in regel 2040. 

CO: status van de toetsen/joystick; 

bepaalt de richting van de helicopter. 

CUR: krijgt in regel 1000 de waarde van 
de interne klok tijdens werkzaamheden 
buiten de hoofdlus. In regel 3200 wordt 
de klok weer op CUR gezet. Op deze 
manier wordt een speler niet de dupe van 
de 'trage' computer. 

HS: bevat de hoogste score. Het 

aanpassen gebeurt op regel 5045. 

NIV: het niveau dat van 0 t/m 5 kan 
lopen. Na het laatste niveau wordt naar 
het einde gesprongen. 

SC: bevat de score. 

XI,Yl: de coordinaten van de te zoeken 
plaats. In regel 3020 wordt de plaats 
gekozen. Uitbreiden van het aantal 


plaatsen is eenvoudig: Regel 3020 

PNR=INT(RND(-TIME)*AANT)+(AANT*NIV) 
waarbij AANT het aantal plaatsen per 
niveau is. Het aantal niveaus kan m.b.v. 
regel 5005,214 en 3020 naar wens 
aangepast worden. 

XA,YA: de coordinaten van de helicopter. 

De tune wordt in regel 11180 aan- 
geroepen. Doordat een deel van de mu- 
ziek in de zgn. music data buffer wordt 
gezet, kunnen de sprites gemaakt worden 
en de getekend worden voordat de tune 
eindigt. 

Regel 63003-63011 geven 3 sprites, die 

door snel na elkaar te printen een 
r^delijk geanimeerd beeld van de wieken 
geven. Een vloeiender beweging is 
mogelijk door van meer sprites gebruik 
te maken. Dit komt echter de snelheid 
van het sel niet ten goede. 

In regel 63019-63024 staat de routine 
die, aan de hand van de getallen in 
regel 63026-63032, de provincie 
gedetaileerd tekent. M.b.v. SWAP worden 
de eindcoordinaten van de le lijn de 
begincoordinaten van de 2e, etc. Dit is 
een typische Microsoft-BASIC instruktie. 
Veel programmeurs moeten dit als volgt 
oplossen: 

HULP=X1:Xl=X2:X2=HULP 


In een maand wordt duidelijk dat de 
Microsoft-BASIC zeer krachtig is. Helaas 
ken ik de mogelijkheden nog niet goed 
genoeg om ze ten vole te benutten. 
Hopelijk helpt raijn COBOL studie, en 
mijn grote interesse voor MSX-BASIC, mij 
en stap te zetten in de richting van 
gestuctureerder programmeren. 

Tevens hoop ik een blad als de MSX-GIDS 
mede te kunnen helpen uitgroelen tot een 
alom gerespecteerde bron voor zeer veel 
MSX-liefhebbers. 

Graag zou ik regelmatig een programma 
wlllen schrijven voor Uw blad. 

RICHARD ALTENBURG 

(Red. Gezien de kwaliteit van dit 
programma zeggen wij ook GRAAG!) 


1 *MARIAL COMPUTING & MSX GIDB 

2 KEY OFF 

4 GOBUB 10000 
6 GOTO 3000 
8 ’ 

9 ? HOOFDLUS 

10 SOUND 0,0:SOUND 1,4:SOUND 6,24 
20 SOUND 7,&B11110110!SOUND 8,16 

30 SOUND 12,3:SOUND 11,50!SOUND 13,1 
2 

40 CO^STICK(BB) 

50 IF CO=0 THEN 150 

60 ON CO GOTO 70 ,80 ,90 ,100,110,12 
0,130,140 

70 YA”YA-3:GOTO 150 
80 XA-XA+3:YA=YA-3s GOTO 150 
90 XA=XA+3iGOTO 150 
i100 XA=XA+3:YA=YA+3:GOTO 150 
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110 YA=YA+3:GOTO 150 

120 XA-XA—3:YA=YA+3: GOTO 150 

130 XA=XA-3sG0T0 150 

140 XA=XA-3:YA=YA-3:GOTO 150 

150 IF TIME >=3000 THEN LINE(17,172) 

—(255,182),7,BF:GOTO 5000 

160 IF TIME>2500 THEN AA=9 

170 TI=TIME*.08533 

180 LINE (T1, 189) — < TI,191), AA 

200 PUT SPRltE 1,(XA-4,YA-4),15,1 

220 PUT SPRITE 1,(XA-4,YA-4),15,2 

240 PUT SPRITE 1,(XA-4,YA-4),15,3 

260 IF ABS (X A—X1X11 AND ABS (YA-Y1 

Xll THEN CIRCLE (X1, Yi >, 2,7: PAINT (X 

1,Y1),7:CIRCLE (X1,Y1),2,4:PAINT(X1, 

Y1) , 4 

280 IF ABB (XA-X1X3 AND ABS (YA-Y1) 
<3THEN GOSUB 1000 
300 GOTO 40 

998 9 

999 51 PLAATS GEVONDEN 

*1* njlji i^Lfa *3Lf 

JrPh Djn aPt flp flit 

1000 CUR=TIME 

1010 LINE (17,172)-(255,182),7,BF 
1020 FOR G=0 TO 7sCOLOR ,,G:NEXT 
1030 SC=SC+250 

1040 LINE(150,21)—(248,29),14,BF 
1050 PSET (152,22),14 
1060 COLOR Is PRINT #1,"SCORE:"5 USING 
11 ######" * SC 

1070 AP=AP+1:IF AP<B THEN 3000 

1999 9 B PLAATSEN GEVONDEN 

******************* 

2000 SOUND 7,&B11111000 

2010 PLAY "T170V11D2L4CL8DEL4FGL2F." 
, ,, T170V12O5L2C. L404BAGG”, "R" 

2020 FOR F=1 TO 100!FOR G=1 TO 7 
2030 COLOR,,GsNEXT;NEXT 
2040 80=INT((3000-CUR)/50) 

2045 SOUND 13,8s SOUND 12,2:SOUND 1,4 
sSOUND 7,&B11110110:SOUND 8,16 
2050 FOR F=1 TO BO 
2060 SC=SC+100 

2070 LINE(150,21)-(248,29),14,BF 

2080 PSET(152,22),14;COLOR 1 

2090 PRINT #i; "SCORE;’’jUSING "###### 

". g£ 

2110 NEXT F 
2120 SOUND 8,0 

2130 LINE (0,189)-(255,191),7,BF 
2140 NIV=NIV+l:IF NIV>5 THEN 5000 
2150 GOSUB 63040 

2998 9 

2999 9 PLAATS KIEZEN 

************* 

3000 RESTORE 4000 

3020 PNR=INT(RND(-TIME)* 11) + (11*NIV) 
3040 B*=A$ 

3060 FOR F=0 TO PNR 
3080 READ A*,X1,Y1 
3100 NEXT F 

3120 IF A*=B* THEN 3000 
3140 X1=X1+20 

3180 PSET(17,172),7:COLOR 1 
3190 PRINT #1,"VLIEG NAARs“sA$ 

3200 TIME=CUR 
3220 GOTO 10 

3998 9 

3999 9 DATAREGELS MET PLAATSEN 

*********************** 

4000 DATA ZWOLLE,73,83,OLDENZAAL,186 
,123,STEENWIJK,77,24,ALMELO,150,118, 
EMMELOORD,25,40,HENGELD,171,130,DEDE 
MSVAART,125,62,DEVENTER,82,142,KAMPE 
N, 48,72!, ENSCHEDE,180,146,RAALTE,93,1 
10 
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4001 9 

4010 DATA URK,8,50,GLANERBRUG,192,14 
6,STEENWIJ KERWOLD,70,21,RIJSSEN,131, 

131,NIEUWLEUSEN,97,67,GODR,151,142,S 
LAGHAREN,136,56,VROOMSHOOPi138^ 95,DA 
LFSEN,93,84,HAAK5BERGEN,158,157,DENE 
KAMP,196,109 

4011 9 

4020 DATA DIEPENVEEN,81,134,DELDEN,1 
56,141,GIETHOORN,70,35,BATHMEN,96,14 
1,HEINO,B9,101,LOSSER,198,136,00TMAR 
SUM,182,102,GENEMUIDEN,66,60,MARKELO 
,126,142,STAPHORST,SB,51,OLST,76,120 

4021 9 

4030 DATA DE KRIM,143,52,RUTTEN,17,2 
3,H0LTEN,115,134,B0EKEL0,169,150,TUB 
BERGEN,167,103,WIJHE,80,111,OMMEN,11 

9,71,SCHALKHAAR,B6,138,BALKBRUG,115, 

63,OLDEMARKT,58,15,BERGENTHEIM,143,7 
8 

4031 9 

4040 DATA MARKNESSE,44,40,LEMELERVEL 
D,108,96,IJ HORST,98,50,HEETEN,94,121 
,DE LUTTE,195,122,BORNE,164,132,NAGE 
LE,22,57,IJSSELMUIDEN,51,67,SIBCULO, 

146,91,ENTER,137,133,OUDLEUBEN,103,7 
2 

4041 9 

4050 DATA KRA6GENBURG,48,50,DIEPENHE 
IM,135,150,WESTENHOLTE,67,83,BUURSE, 

174,163,OVERDINKEL,203,142,ITTERSUM, 

75,87,DEN HAM,126,95,GEESTEREN,161,1 
00,KUINRE,40,25,HASSELT,71,66,HENGEV 
ELDE,146,150 

4998 9 

4999 9 EINDE SPEL 

■Jlp .aju. l^Lp 1 Jb* vtp imjj* ■ijLpr 

in Jjni JrTl flnb Inn IWV fp!" irR 

5000 FOR F=1 TO 3sPUT SPRITE 1,(200, 

200),7,F:NEXT 

5005 IF NIV>5 GOTO 5020 
5010 LINE (86,70) — <160,80),14,BF 
5015 PSET<88,72),15:PRINT #1,"TIJD O 
P ! ” 

5020 SOUND 1,0s SDUND9,0s SOUND 7,&B11 
111110 

5025 FOR G=1 TO 7s SOUND 8,15-GsFOR F 
= 170 TO 255sSOUND 0,F:COLOR,,G:NEXT: 

NEXT 

5030 SOUND 8,0 

5035 LINE (86,70)-(160,80),4,BF 

5040 LINE(0,189)-(255,191),7,BF 

5045 IF SOHS THEN HS=SC 

5050 SC=0:NIV=0 

5100 GOSUB 63040 

5110 XA=125:YA=85 

5120 GOTO 6 

5999 9 INTRODUCTIE-TUNE 

iL bL- *flu "iJAp nJto- -ULr- 

■f' 

6000 SOUND 7,8<B1 111 1000 
6005 FOR F=1 TO 2 

6010 PLAY ,, T170V13", "T170V12", "T170V 
10" 

6020 C*= "05L4CEFEDC04B05CL2DDL4CEFE 
DCCD4B05L2CC" 

6040 D*= n 04L4EGAGB.L8ABG05L4C04L2BB 
05L4C04GAGBAAGL2EE" 

6060 E$= "04L4CCFCGCGAL2GGL4CCFCGAFG 
L2CC" 

6100 PLAY C$,D^,E$ 

6120 C*= "05L4DC04B05CDEL2DL4DC04B05 
CDEL2DL4CEFEDCC04B05L2CC" 

6140 D*= "04L4B05C04G.L8AL4BD5C04L2B 
L4B05C04G.L8AL4B05C04L2B05L4C04GAGBA 
AGL2EE" 

6160 E$= "04L4GAGCGCL2GL4GCGCGCL2GL4 
CCFCGAFGL2CC" 

(C) Junior 99 







6200 PLAY C$,D$,E$ 

6300 NEXT F 
6500 RETURN 

9998 ? 

9999 p TITELPAGINA 

10000 SCREEN 2,0,0 
10040 COLOR 15,4,4s CLS 

10060 OPEN "GRP:" FOR OUTPUT AS #1 
10080 RESTORE 10450 

10090 SOUND1,9:SOUND13,8:SOUND12,3:S 

0UND7,&B11110110:SOUNDS,16 

10100 FOR F-62.5 TO 187-5 STEP 25 

10120 LINE (125,5)-(F,25),7 

10140 CIRCLE STEF'<0,9) ,9,7 

10160 READ AS 

10180 PSET <F—2,30),4 

10190 COLOR 7:PRINT #1,AS 

10200 NEXT F 

10220 FOR F-25 TO 225 STEP 25 
10240 LINE(125,45)-<F,70),9 
10260 CIRCLE STEP<0,9),9,9 
10280 READ AS 
10300 PSET <F—2,75),4 
10310 COLOR 9s PRINT #1,AS 
10320 NEXT F 

10340 FOR F=B7.5 TO 167.5 STEP 25 
10360 LINE <125,92)~<F,115),11 
10380 CIRCLE STEP<0,9)i9,11 
10400 READ AS 
10420 PSET <F—2,120),4 
10430 COLOR 11s PRINT #1,AS 
10440 NEXT F 

10450 DATA M,A,R,I,A, L, C, 0, M, P,U 
10455 DATA T, I, N, G, 1,9,8, 4' 

10460 PSET <66,148),4 

10470 COLOR 14:PRINT #1,"- presentee 
rt 

10480 PSET <25,165),4 

10485 COLOR 1 SPRINT #1,"OVERIJSSEL P 
ER HELIKOPTER” 

10490 PSET <93,178),4 

10495 COLOR 14:PRINT #1,"<C) 1985” 

10498 FOR F=300TO0STEP—1:S0UND8,F/20 

sNEXT 

10500 FOR F-l TO 1500 sNEXT 

10999 ? INSTRUCTIES 

t * ? J t t 

11000 SCREEN 0 
11020 WIDTH 37 

11040 COLOR 1,5,5sCLS 
11060 LOCATE 4,1 SPRINT CHRS<175)+” 0 
VERIJSSEL PER HELIKOPTER ” + CHRSU74 
) 

11080 LOCATE 4,4:PRINT 11 Het doel van 
dit spel is het spelenderwij 

s leren van plaats- namen in de 

provincie Overijssel-" 

11100 LOCATE 2,.8s PRINT”VI ieg met je 
helikopter naar de acht gevraag 

de plaatsen voordat de tijd op 

is. Hou de tijdbalk dus g 

oed in het oog !" 

11120 LOCATE 2,13:PRINT”Nadat de ach 
tste plaats bereikt is,kom je 

op een hoger niveau.” 

11140 L0CATE12, 17: PRINT‘*Veel succes 

him 

1U60 LOCATE 4,19sPRINT”Druk na het 
tekenen van de kaart: 

- spatieba 

Ik voor toetsen - vuurkno 

p voor joystick 1” 

11180 GOSUB 6000 

63000 SCREEN2,0,0:C0L0R7,7,7:CLS 

63002 X**"" 

63003 RESTORE 63004 


63004 DATA 0,9B,54,4,32,108,70,0,24, 
24,24,231,231,24,24,24,0,70,108,32,4 

54 98 0 

63005 FOR F-i TO 3:FOR 0=1 TO 8 

63006 READ X 

63007 XS=XS+CHRS<X) 

6300B NEXT G 

63009 SPRITES <F)= XS 

63010 XS= n ” 

63011 NEXT F 

63017 RESTORE 63026 

63018 COLOR 4 

63019 X1=25 : Yl = 12 

63020 READ X2,Y2 

63021 LINE < Xi+20,Y1)-< X 2+20,Y2) 

63022 SWAP X1,X2:SWAP Y1,Y2 

63023 ON ERROR GOTO 63025 

63024 GOTO 63020 

63025 PAINT<46,15),4 

63026 DATA 25,12,25,14,15,15,5,28,5, 

52.9.55.12.62.22.62.23.62.31.62.31.6 
8,35,69,41,73,42,B2,44,82,55,92,59,9 
1,61,93,63,86,65,85 

63027 DATA 75i92,75,98,78,99,76,108, 

78.110.78.113.74.114.74.116.75.117.7 
3,118,71,125,73,126,70,127,74,128,77 
,138,79,138,78,144,80,146,82,144,88, 
146 

63028 DATA 96,143,97,145,103,144,106 
,141,115,141,126,155,133,154,139,155 
,141,156,140,157,142,158,144,156,145 
,157,147,155,152,156,152,162,150,165 
,158,169,175,171,180,168 

63029 DATA 181,160,184,155,188,154,1 
95,144,199,143,205,145,210,143,200,1 
32,205,114,205,107,201,105,198,94,19 
7,92,195,91,192,95^188,96,175,95,175 
,92,165,93,155,90 

63030 DATA'155,82,148,73,157,75,159, 
71,163,72,165,70,157,65,157,57,155,5 
6,155,52,140,47,130,53,130,60,125,58 
,123,60,120,58,115,60,110,54,105,51, 
105,48 

63031 DATA 103,47,100,49,97,49,90,45 
,87,47,80,45,75,31,80,30, 89,20,82, 17 
,79,10,71,12,68,11,67^14,65,15,64, 14 
,60, 161,57, 11,53, 12,51,15 

63032 DATA 45,19,43,18,40,20,35,18,3 
0,20,30,17,25j12 

63040 AP=0:CUR=0:X A=125:YA=85:AA=1 
63060 COLOR,,7 

63062 LINE <150,5) — <248,13),14,BF 

63063 PSET<152,6):C0L0R1:PRINT#1,”NI 
VEAU:USING”#####”;NIV 

63065 LINE <150,21)-<248,29),14,BF 
63067 PSET <152,22),14 

63069 COLOR 1:PRINT #1,"SCORE:”;USIN 

G * 1 ####«#*•.cr 

63070 LINE <15,119)-<73,139),14,BF:PS 
ET <17,120),14:PRINT#1,"HOOGSTE” 

63072 PSET <17,130),14:COLOR 6:PRINT 
#1,USING”#######";HS:COLOR 1 

63075 PSET <17,172),7:PRINT#1,"DRUK S 
PATIEBALK/VUURKNOP." 

63080 IF STRIG <0)“-1 THEN BB=0 ELSE 
IF STRIG<1)=-1 THEN BB=1 ELSE 63080 
63090 LINE <17,172)-<255,182),7,BF 
63100 RETURN 
63200 ' 

MET DANK AAN 

» SYBRAND RUITER . . . 

» <en zijn atlas) 
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Regel 
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Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


1 - 58 

2 - 247 
4 - 18 
6 - 154 
8-58 

. 2 : 5 ! 

20 - 152 
30 - 101 
40 - 247 
50-27 
60 - 92 
70 - 176 
80 - 16 
90 - 173 
100 - 15 
HO - 175 
120 - 16 
130 - 174 
140 - 17 
150 - 57 
160 - 242 
170 - 94 
180 - 61 
200 - 62 
220 - 63 
240 - 64 
260 - 209 
280 - 159 
300 - 223 

998 - 58 

999 - 90 
000 - 164 
010 - 97 
020 - 14! 
030 - 21 
040 - 148 
050 - 116 
060 - 59 
070 - 126 

998 - 58 

999 - 58 

2000 - 21 
2010 - 119 
2020 - 202 
2030 - 214 
2040 - 150 
2045 - 0 

2050 - 147 
2060 - 127 
2070 - 148 
2080 - 125 
2090 - 50 
2110 - 233 
2120 - 58 
2130 - 108 
2140 - 133 
2150 - 17 
299B - 58 

2999 - 58 

3000 - 105 
3020 - 146 
3040 - 186 
3060 - 241 
3080 - 119 
3100 - 233 
3120 - 80 
3140 - 21 
3180 - 135 
3190 - 233 
3200 - 164 
3220 - 193 

3998 - 58 

3999 - 58 

4000 - 254 

4001 - 58 

4010 - 102 

4011 - 58 

4020 - 181 

4021 - 58 

4030 - 108 

4031 - 58 

4040 - 233 

4041 - 58 

4050 - 0 

499B - 58 

4999 - 58 

5000 - 230 
5005 - 34 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

S' 8 '! 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

N Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

N Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

^egel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


5010 

5015 

5020 

5025 

5030 

5035 

5040 

5045 

5050 

5100 

5110 

5120 

5998 

5999 


128 

2 

217 

119 

58 

120 
76 

4 

189 

241 

59 
189 

58 


6005 
6010 
6020 
6040 
6060 
6100 
6120 
6140 
6160 
6200 
6300 
6500 

9998 

9999 
0000 
0040 
0060 
0080 
0090 
0100 
0120 
0140 
0160 
0180 
0190 
0200 
0220 
0240 
0260 
0280 
10300 
10310 
10320 
10340 
10360 
10380 
10400 
10420 
10430 
10440 
10450 
10455 
10460 
10470 
10480 
10485 
10490 
10495 
10498 
10500 

10999 

11000 
11020 
11040 
11060 
11080 
11100 
11120 
11140 
11160 
11180 
63000 

63002 

63003 

63004 

63005 

63006 

63007 

63008 

63009 

63010 

63011 

63017 

63018 

63019 


21 

21 

243 
148 

8 

148 

113 

164 

14 
171 

113 

233 
142 
58 
58 

114 
86 
81 

180 

102 

50 

15 

234 
12 
24 

166 

233 

76 

68 

236 
12 
69 
168 
233 

B5 

192 

236 

12 

114 

168 

233 
150 
224 
146 
213 
124 
163 

205 
21 
71 

220 

58 

246 

244 
76 
39 
55 
10 

106 

3 

200 

66 

194 

175 

204 

206 
108 
255 

22 

234 

237 
175 
233 
226 
242 
174 


Regel:63020 - 232 
Regel:63021 - 11 
Regel:63022 - 66 
Regel:63023 - 89 
Regel:63024 - 217 
Regel:63025 - 216 
Regels63026 - 17 
Regel:63027 - 62 
Regel:63028 - 12 
Regel:63029 - 213 
Regel:63030 - 128 
Regel:63031 - 255 
Regel:63032 - 116 
Regel:63040 - 231 
Regel:63060 - 45 
Regel:63062 - 118 
Regel:63063 - 178 
Regel:63Q65 - 148 
Regel:63067 - 116 
Regel:63069 - 59 
Regel:63070 - 32 
Regel:63072 - 207 
Regel:63075 - 235 
Regel:630B0 - 36 
Regel:63090 - 97 
Regel$63100 - 142 
Regel:63200 - 58 
Totaal: 24942 



DISKETTES 


De programme's uit de MSX Gids zijn nu ook 
op diskette leverbaar. 


Er zijn alleen 80-track 
krijgbaar; Tormaat 3.5 en 
5.25 is niet leverbaar! 


5.25 


ver- 
40-track 


Diskette nr. 1 bevat de belangrijkste 
programma's van MBX-Gids 1 t/m 3. Een ver- 
zameldiskette dus. 

Diskette nr. 4 bevat alle programma's uit 
deze gids. 


op en 


De diskettes starten automatisch 
zijn geheel menu-gestuurd met di 
keuze mogelijkheden en schermen. Alles in 
hi-res graphics. Het menu bevat ook een 
overzichts programma, dat geschikt is voor 
twee drives. 

De 3.5 diskettes kosten FI. 25,00 p.st. en 
de 5.25 versie kost FI. 15,00. 

Deze prijs is incl. verzendkosten (in 
sped ale diskette verpakking). 

Bestellen door overmaking op giro 909515 
t.n.v. A.Debels te Amsterdam. 

Voor Belgie is de prijs BFr. 470 voor de 
3.5 versie en BFr. 280 voor de 5.25 
versie, en betalingen kunnen geschieden 
op rek.nr. 235-0430464-87 bij de Generale 
Bankmij. te Hasselt t.n.v, J.Herps, 
postbus 10252, 1001 E& Amsterdam. 

Vergeet het nummer van de diskette niet te 
vermelden. 

N0GMAAL5: ALLEEN 80 TRACK DISKETTES!! 
Ini. Tel. 020-320807 
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Trend jp-130 



matrix printer 



Voor we de TREND JP-130 MSX printer 
bekijken gaan we eerst even terug naar de 
Philips VW0030 in het vorige nummer. Hier 
zijn enkele prijzen niet juist weergege- 
ven. 

De tractor-feed van deze Philips printer 
kost geen FI. 250,00 maar hee-ft een 
adviesprijs van slechts FI. 53,55 1!! 
Verder is de adviesprijs van deze printer 
inmiddels verlaagd en deze bedraagt nu 
FI. 1149,00 inclusief BTW. 

De schrijver van het artikel was over de 
prijs van de tractorfeed waarschijnlijk 
verkeerd voorgelicht. Mocht hij deze 
prijs echt hebben betaald dan zou ik, als 
i k hem was, maar eens snel naar de 
leverancier rennen. De hierboven genoemde 
prijzen zijn ons door Philips opgegeven. 

TREND JP-130 MSX 

Deze printer wijkt heel sterk a-f van de 
andere printers (Phi 1ips,Seikosha) die 
voor de MSX leverbaar zijn. De Trend 
printer werkt met ovale printnaalden die, 
in de ? normale’ stand, al een Ne*r Letter 
Quality geven. Hierdoor kent deze printer 
slechts 1 (hoge) snelheid van 130 tekens 
per seconde. Dm de kwaliteit goed te 
kunnen beoordelen is dit artikel dan ook 
geprint met deze printer. Er is van de 
12-pitch letter gebruik gemaakt en -zoals 
te zien is- gee-ft dat een goede 
kwaliteit. Deze tekst wordt toch met de 
voile snelheid gedrukt. 

De Trend printer is geen echte MSX 
printer doch een IBM-compatible, die d.m. 
v. een cartridge'aangepast is aan de MSX. 
Alle MSX tekens zijn aanwezig maar de 
spec i-fi eke aansturingscodes van de MSX 
worden niet gebruikt. Deze cartridge 
houdt wel een slot van de computer bezet. 
Zonder cartridge werkt de printer ook 
goed, maar dan wel zonder de speciale MSX 


Bijna alle aansturingen moeten vana-f de 
computer geschieden. Deze printer hee-ft 
geen dipswitches om b.v. de verschillende 
lettertypes in te schakelen. Alle letter- 
types kunnen door elkaar worden gebruikt 
door in de tekst de codes op te geven. De 
printer hee-ft een 2Kb RAMgeheugen dat als 


printbu-f-fer wordt gebruikt. Dit geheugen 
is uit te breiden tot 4Kb en met het 
gebruik van de cartridge blijft van de 2K 
nog slechts 640 bytes over; de aan- 
vullende lettertekens uit de cartridge 
worden n.l. in deze bu-ffer gezet. 

Ondanks de hoge snelheid maakt de printer 
erg weinig lawaai; veel minder dan b.v. 
onze letterwiel printer. Het papiertrans- 
port is ook geruisloos, maar gaat wel een 
beetje schokkerig. De maxi male printsnel- 

heid wordt verkregen bij ’bidirectioneel* 
printen maar dit gaat wel ten koste van 
de kwaliteit. Wanneer de bidirectionele 
stand wordt uitgeschakeld is de snelheid 

nog altijd zo’n 110 tekens per seconde, 
en de kwaliteit is dan wel optimaal. 

De papierinvoer is probleemloos; zowel 
met losse vellen als met de ingebouwde 
tractor-feed. Wat wel veel problemen gee-ft 
in het plaatsen van het inktlint. Dit is 
haast niet te doen. Het lint is 
nauwelijks in de machine te wurmen, en 
als het dan uiteindelijk lukt, dan 
springt het lint er in 9 van de 10 
gevallen nog een keer uit tijdens het 
printen, 

Wat nog opvalt is het ontbreken van een 
cursieve letter. 

De bijgeleverde handleiding is in het 
Engels en, voor een leek, nauwelijks 
bruikbaar, Wie niets -o-f nauwelijks iets- 
van computers en printers a-fweet zal vele 
uren nodig hebben voor het rommelen met 
de verschillende CHR$- opdrachten. 

De prijs van deze printer bedraagt (incl. 
tractorfeed en BTW) FI. 1185,00 waarbij 
nog FI. 85,00 opgeteld most worden voor 
de MSX- cartridge. De printer werkt met 
’multistrike” carbonlinten welke FI. 
29,75 per stuk kosten. Deze linten worden 
sneller grijs dan de *ouderwetse* nylon 
linten maar het printmechanisme blijft 
-op een klein beetje poeder na- wel goed 
schoon, 

Voor deze prijs krijgt men een goede, 
degelijke en vooral snelle matrixprinter. 
Het lettertype wijkt wel enigszins a-f en 
de persoonlijke smaak, plus het doel 
waarvoor de printer wordt aangeschaft, 
zullen de doorslag moeten geven. Trend- 
producten zijn verkrijgbaar in de 12 
vestigingen van TREND GROUP NEDERLAND 
wear een goed advies en goede service 
worden verleend. Deze zaken leveren ook 
de Philips en Seikosha printers wat een 
vergelijking, en keuze, ter plaatse 
vergemakkelijkt. 


Dit is ELITE-schrift (12 pitch) 

Dit is PICA-sehri-ft (10 pitch) 

Zo is het proportioneel 
En zo ziet CONDENSED emit 

Dit M ENLARGED 


EMPHASIZED gee-ft een vette letter 
DOUBLE STRIKE is iets minder vet 





KN 


En dtt hdg t«a«n «ft CONDENSED 


Dit oee-ft en liintie 
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A CJ Groeneveid 





handboek 


BOEKEN 


MSX 2 HANDBOEK 

De geheugens van computers zijn -ook van 
de 16- en 32-bitters- nog steeds te 
klein om handleidingen, handboeken e.d. 
in de vorm van software bij het systeem 
mee te leveren. Voorlopig blijven we 
daarom nog vrijwel geheel afhankelijk 
van 'ouderwets' drukwerk. Naast de 
diskdrives vinden we dan ook meestal een 
flink gevulde boekenplank en voor deze 
laatste bespreken we hier een nieuwe 
aanwlnst. 

Van uitgeverij STARK, geschreven door 
A.C.J. Groeneveid, komt het eerste boek 
voor de MSX-2; het MSX 2 handboek. Een 
fikse pil, die met zijn ruim 500 
pagina's al gauw een harddisk zou 
volschrijven. Dit handboek is zo dik 
oradat het hier niet om een aanvulling 
van eerdere boeken gaat, raaar om een 
volledig nieuw boek dat alle instrukties 
-zowel MSX 1 als MSX 2- beschrijft. Het 
behandelen van al deze instrukties neemt 
ongeveer 350 pagina's in beslag. 

Hierbij gaat het alleen ora de BASIC- 
instrukties; disk-BASIC en MSX-DOS komen 
niet ter sprake. Bij de MSX 2 is dit 
niet zo'n bezwaar daar, bij deze nieuwe 
machine, veel nieuwe instrukties zijn 
ingevoerd die erg veel op reeds 
bestaande disk- instrukties lijken. Zo 
kent MSX 2 opdrachten als: COPY, CALL, 

GET, SET, PUT, zodat een apart boek voor 
disk- Basic en DOS misschien wel zo 

handig is. 

Uiteraard is het gehele boek in het 
Nederlands geschreven en de 
versehillende instrukties zijn 
duidelijk, overzichtelijk gerangschikt 
en •geschreven. Bijna overal zijn de 
sleutelwoorden voorzien van voorbeelden 
en stukjes programma die de werking van 
de Instrukties verduidelijken. ledereen 
die een klein beetje op de hoogte is met 
BASIC kan hiermee prima uit de voeten en 


zal aan dit boek voorlopig voldoende 
hebben ora met de MSX 2 —of 1- aan de 
slag te gaan. Alleen de allerprilste 
beginner heeft nog behoefte aan wat raeer 
informatie ter kennismaking met de 
computer. Ook hierin voorziet dit MSX 2 
handboek. Het eerste gedeelte van deze 
pil -ca. 80 pagina's- is geheel 
geschreven om kennis te maken met de MSX 
computer. Hier wordt begonnen met het 
intoetsen van de eerste lettertjes en 
via de variabelen en wat gegevens over 
de interne stuktuur van de MSX gaat het 
naar de logische bewerkingen. Geen echte 
cursus, maar voor de velen, die b.v. met 
een Engelse handleiding worstelen, is 
dit een goede aanvulling. 

Nu houden we nog ruim zestig pagina's 
over. Deze 60 vinden we in het laatste 
gedeelte van het boek en hier staan b.v. 
een overzicht van de fuutmeldingen, de 
soundgenerator, het videogeheugen enz. 
Vooral over de nieuwe videochip en de 
daarbij behorende videoram is behoorlijk 
wat te vinden. 

Het MSX 2 handboek staat boordevol 
informatie zowel voor de beginner als de 
gevorderde gebruiker. Het is zondermeer 
een pluspunt dat alle instrukties -zowel 
voor de MSX 1 als de MSX”- bij elkaar in 
een boek te vinden zijn. Als klein 
nadeel staat hier tegenover dat, door de 
grote hoeveelheid instrukties, dit boek 
nogal dik en niet al te handzaam is 
uitgevallen. We hebben geen ernstige 
blunders kunnen vinden, raaar we hebben 
tot slot nog wel een verzoekje aan de 
uitgever: 

In dit boek staan de sleutelwoorden op 
alle pagina's -dus ook de linker 
pagina's- bovenin aan de rechter zijde. 
Dit verlangt -bij deze linker pagina's- 
het 'opendrukken' van de pagina's wat 
waarschijnlijk tot een voortijdig breken 
van de rug zal leiden. Bij een eventuele 
tweede druk zouden deze sleutelwoorden, 
wat ons betreft, bij de linker pagina's, 
ook in de linker bovenhoek geplaatst 
mogen worden. 

De prijs van dit boek is 56,50, Dit 
lijkt duur, raaar voor dit bedrag krijgt 
de koper een heleboel inforraatie. 


40 


(C) Junior 99 









MSX VERDER UITGEDIEPT 


HET MSX MACHINETAAL BOEK 


De uitgeverij STARK op Texel staat bekend 
ora haar kwalitatief hoogwaardige uitgaven 
op MSX computergebied. Zo kunt u 
bijvoo.rbeeld een gehele cursus, in vier 
delen, aanschaffen voor uw MSX. Er zijn 
verder boeken over MSX DOS, Disk BASIC, 
Quickdisk etc. 


Bovenvermeld boek -geschreven door 
H.Klopper- is een van de meest recente 
uitgaven voor de MSX computer, Het boek 
behandelt, zoals op de voorpagina te zien 
is, de screen locaties, sprites, control 
codes, het VPOKE statement, de video chip 
e»d. 

Naast de uitleg over deze onderwerpen 
vindt u in het boek ook verschillende 
programme's. Onder deze programme's 

bevinden zich een 'header lezer', een 
wereldkaart, een diskette loader utility, 
en een aardig animatie programmaatje met 
karakters. A1 deze programma's hebben een 
grote praktische waarde. De headerlezer 
stelt u in staat om begin-, eind- en 
startadres van een machinetaal programma 
op te vragen (makkelijk als cassette 
software naar diskette overgezet moet 
worden). De wereldkaart kan in eigen 
programma's gebruikt worden. De 
diskloader zet alle programma's op het 
scherm waarna, met de cursor op het 
eerste karakter van het te laden 
programma, en een druk op ESC, het 
gekozen programma dan erg makkelijk kan 
worden ingelezen. 


Het boek begint met een uitleg over het 
geheugen van de MSX computer. Hierna 
wordt ingegaan op het VPOKE statement. Zo 
korat er een leuke routine in voor waarmee 
een inverse karakter kan worden verkregen 
en er wordt verteld hoe de MSX 
karakterset verder te veranderen is aan 
de hand van enkele voorbeelden. 

Bij de bespreking van de geheugen 
indeling wordt een keurige opsomming 
gegeven van de belangrijkste systeem 
variabelen die een MSX computer rijk is. 
Er wordt dieper ingegaan op de VDP en het 
videoram waarbij alle videoram adressen 
duidelijk worden uitgelegd. In dit boek 
wordt op een duidelijke manier het 
gebruik van sprites gedemonstreerd. Alle 
sprite locaties worden hier 
overzlchtelijk * bekend gemaakt. Verder 
worden het VDP statement en het BASE 
statement uitgelegd en tenslotte worden 
het Hexadecimale en het Binaire 
talstelsel uiteengezet. 

A1 met al een goed boekje, vooral voor de 
wat gevorderde programmeur. 

De prijs van dit boekje is FI. 23,90 


Door: H.Klopper & Marcel Le Belle. 

Alweer een boek van uitgeverij STARK. Dit 
boek is verdeeld in twee delen. Een zeer 
uitgebreide inleiding over variabelen, 
het geheugen, BASIC-tokens, de 
verschillende talstelsels etc. Door de 
inleiding wordt een beter inzicht 
verkregen hoe de computer nu feitelijk 
met de ingevoerde opdrachten omspringt. 
Dit is zeker nodig als in machinetaal 
moet worden gewerkt. 

De machinetaal cursus behandelt vrijwel 
alle belangrijke instrukties van de bij 
de MSX gebruikte Z80A microprocessor. 
Alle instrukties worden uitgelegd aan de 
hand van programraavoorbeelden. Dit werkt 
vaak veel duidelijker dan het 1 voor 1 
opnoemen van de instrukties met een 
bespreking. Ook het gebruik van hooks, 
romroutines e.d. wordt uitgelegd. Een 
aardig detail is een aantal utility 

programma's om cassette software naar 
diskette over te zetten. Er wordt een 
voorbeeld gegeven met het programma 
'Roger Rubbish' van SpectraVideo en na 
het uitproberen hiervan werkte het 
programma probleemloos vanaf de schijf. 
Een tweede machinetaalroutine, die de 
moeite van het verraelden waard is, is een 
z.g. "scroll-routine". U heeft vast wel 
eens van die spelletjes gezien, 
geschreven in machinetaal, die het gehele 
beeld lieten bewegen. Met de reeds 
genoemde scrollroutine komt deze techniek 
dus ook binnen het bereik van een wat 
breder publiek. Al met al is het boek 
voor de MSX-er die wat raeer wil dan 
alleen BASIC de moeite waard. 

De prijs van dit boek bedraagt fl. 34,50 

PIT IS GOED FOUT 

MSX DISK HANDBOEK 


Nu eens geen boekbespreking, maar een 
correctie op een erstige fout in het MSX 
DISK boekje van A.C.J. Groeneveld. Wie met 
diskdrives werkt zal bijna altijd, RANDOM 
files gebruiken. Dit is n.l. de grote 
kracht van het werken met diskettes. Deze 
kracht wordt vrijwel teniet gedaan door de 
beweringingen op pagina 76. Hier zouden 
RANDOM files n.l. altijd een lengte hebben 
van 256 bytes.Op deze pagina, en ook 
verder in het boek, wordt de LENGTE van 
het te openen bestand echter vergeten op 
te geven. 

De instruktie hoort er als volgt uit te 
zien: 

OPEN (naam) AS# (nr )LEN= ; ( lengte) 


Na LEN= komt de iengte van het record; 
min.l max.255. Deze lengte is gelijk aan 
het totaal van de lengte van de FIELDS. In 
het voorbeeld op pag. 76 kan hier dus 
rustig LEN=1 worden opgegeven en na RUNnen 
van het programmaat je zal als lengte ( '.OF) 
dan ook 10 worden gegeven, en geen,2560!! 
Even met rood aantekenen!! 


TO 






Hallo alleraaal, 

De afgelopen weken heb lk. m'n hart kun- 
nen ophalen, want de softwarefabrlkanten 
hebben ons verwend: het ene adventure na 

het andere komt op de markt en daaronder 
erge leuke. Bijvoorbeeld net ult van 

Level 9: "The Secret Diary of Adrian 
Mole Aged 13 3/4" naar het boek van Sue 
Townsend. Weer eens iets heel anders, 
maar daarover zal ik het volgende keer 

hebben. Ik raad iedereen aan eerst het 
boek te lezen, want anders denk ik niet, 
dat er veel aan is om het spel te spe- 
len. Verder zijn er Konarai adventures in 
bestelling en er is een nederlandstalig 
avontuur in aantocht. De naam ben ik 
kwijt, maar het bijbehorende plaatje, 
dat men mij liet zien, zag er schitte- 
rend uit. 

Voor deze uitgave heb ik een aantal 
adventures te bespreken, maar eerst even 
terug naar het vorige nummer. Een paar 
leuke reakties gehad op het idee de 
rubriek uit te breiden met tips en de 
eerste tips, die ik kreeg, kwaraen van 
iemand met een Amstrad computer en had- 
den betrekking op Red Moon. Wat de 'pool 
of acid' betreft is de zaak opgelost, de 
munten heb ik nog steeds niet; ik weet 
wel wat ervoor nodig is, maar niet wat 
ik er precies mee moet doen. Dit alles 
is niet zo'n punt, want je kunt het 
einddoel toch wel bereiken, ondanks het 
feit dat je niet alle problemen hebt 
opgelost. Ik ben er nu van afgekoraen met 
963 punten van de 1000 als 'Senior Ad¬ 
venturer', Baskalos is bevrijd en ik 
vind het wel mooi zo, want er valt nog 
heel wat te doen. 



WORM IN PARADISE 

Als eerste spel voor dit nummer maar 
weer een produktie van Level 9 en vol- 
gens mij worden die programmeurs daar 
steeds geschifter, maar dan in de bril- 
jante zin van het woord. 'Worm in Para¬ 
dise' is het vervolg op 'Return to Eden' 
en echt iets voor de gehaaide avontu- 
riers. Een noviteit bij dit spel is de 
ultbreidlng van de commando's: er kunnen 
hele zinnen opgegeven worden, waarbij 
opdrachten ook gecombineerd mogen worden 
Ingevoerd. Bijvoorbeeld: "Go EAST (=E), 
LIGHT LAMP AND GET AMULET" (Dit komt 
niet in het spel voor). 

Laat ik het hoge woord er maar raeteen 
uitgooien: ik snap er geen jota van! Het 
begin is nog wel duidelijk. Je loopt in 
een paradijselijke tuin rond, doet iets 
stoms en de worm komt vrij om aan zijn 
verwoestende veldtocht te beginnen. Na 
een bepaalde tijdslimiet kora je dan 
ineens in de stad Enoch terecht, waar 
alles ora draait, waarna de ellende be- 
gint. Dingen, die je vindt, kun je niet 
gebruiken. Je krijgt zelfs een boete van 
de robotpolitie, als je lets bij je 
hebt. Konstant word je geconfronteerd 
met kleurcodes, die -naar ik aanneera- op 
de een of andere raanier toegepast moeten 
worden en het einddoel schijnt dan te 
zijn, dat je een opblaasbare Kim Kimber¬ 
ley te pakken moet krijgen om de boel te 
redden. Dat pakken is niet zo'n pro- 
bleem, maar dan slaat de politie weer 
toe en kun je naar het ziekenhuis om je 
ledematen te laten amputeren teneinde je 
boete te betalen. Je kunt ook nog een 
robothondje kopen, dat dient te helpen, 
maar daar heb ik tot nu toe niet veel 
aan gehad. Het enige leuke, wat ik ben 
tegengekoraen, is een een-armige bandiet, 
die aardig wat geld kan opleveren, als 









je hem doorhebt. Kortom: een zeer door - 
dacht spel voor mensen, die daar een 
heleboel tijd aan kunnen besteden. Dus 
lang plezier van je fl. 49,50... 



I he d a g oj e t- 
to do some 
now"? n 

V o a a r e in 
leads west- 
daqget and 


s a y s ^ "Are we going 
thing dangerous 

a pet shop- An exit 
. Vo u o a n s ee a 
a pet shop!; 
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rt.*C. L0THL0R1EN 
Presents 

Special Operation 
MSK Version by 
bauid House Pnl> 


SPECIAL OPERATIONS 


M.C.Lothlorien is de ontwerper van dit 
spel, dat voor een prijs van slechts fl* 
29,50 door Aackosoft in Nederland is 
uitgebracht. En*ik moet zeggen: dit is 
een heel aardig spel, vooral voor die 
prijs. Het geheel speelt zich af in de 
2e Wereldoorlog en het is de taak van de 
speler om als commandant van een groepje 
specialisten een Dults kamp binnen te 
dringen en daar allerlei saboterende 
maatregelen te neraen. De groep moet 
iedere keer opnieuw worden samengesteld 
en je moet heel goed opletten, wie je 
waarvoor nodig hebt. De weg naar het 
kamp leidt door een bos, waar zich van 
alles bevindt: huizen, meertjes en grot- 
ten, waar allerlei bruikbaar materiaal 
te vinden is. Maar af en toe kora je ook 
een Duitse patrouille tegen en dan is 


het vechten geblazen. 

Er zijn 7 opdrachten uit te voeren, 
waarvan nr.l de eenvoudigste is. De 
eerste drie heb ik nu achter de rug en 
voor de vierde heb ik een paar tips 
gekregen van een andere beller, dus dat 
ga ik gauw eens uitproberen. 

Leuk spel dus, maar ook een paar minpun- 
ten. Waarschijnlijk was het voor Aacko¬ 
soft teveel raoeite om voor die prijs een 
Nederlandse handleiding te leveren en 
men maakt er zich van af met een heel 
beknopt beschrijvinkje op het omslag van 
het cassettedoosje. De eigenlijke hand¬ 
leiding is in het Engels, maar die is 
wel gedetailleerd. 

Verder is het mij een keer gebeurd, dat 
ik het bele spel op tilt gooide door een 
beetje wild op de toetsen te rammen. Het 
hele beeld verschoof daarbij aan alle 
kanten en bij een poging de boel te 
herstellen kwam op een gegeven ogenblik 
zelfs de hele listing te voorschijn. Als 
je dus een beetje kwaad of ongeduldig 
wordt, schop dan een keer tegen de ta- 
felpoot, schreeuw tegen een argeloze 
voorbijganger of...., maar sla nooit te 
hard op je toetsenbord, want dan kun je 
opnieuw beginnen en het laden van die 
cassettes duurt al zolang, nietwaar? 

Over lang duren gesproken: wat ik ook 
een nadeel vind, is dat het spel vrij 
traag is. Alles bij elkaar genomen is 
het echter toch een spel, waarvan je 
lang plezier kunt hebben en dat -zoals 
gezegd- weinig kost. 
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KNIGHT LORE EN ALIEN 8 


Buiten Filosoft eindelijk een fabrikant, 
die ons zelf wat software toestuurde om 
te beoordelen in de MSX-Gids. U.S.Gold 
Ltd. uit Birmingham is waarschijnlijk 
wat slimmer dan de rest en houdt er 
rekening mee, dat er naar software die 
beschreven wordt in welk computerblad 
dan ook, onmiddellijk vraag Is in de 
winkels, zoals wij van verscheidene 
winkeliers gehoord hebben. 

Het gaat bier om de langverwachte Ulti¬ 
mate adventures, die inmiddels ook op de 
Nederlandse markt verkrijgbaar zijn voor 
fl. 49,— per stuk. De verpakking is erg 
fraai, maar het raeest bijzondere zit hem 
in de spellen zelf, want die zijn drie- 
dimensionaal en dat is wel even wennen. 
Je weet af en toe niet, welke kant je 
opmoet. De grafische uitvoering is vrij 
simpel en wij vinden eigenlijk, dat je 
maar een van de spellen hoeft te kopen, 
want qua uitvoering zijn ze bijna het- 
zelfde. Bij Knight Lore ben je een weer- 
wolf, die een kasteel door moet om bij 
een tovenaar een drankje te vinden, 
zodat zijn vloek verdwijnt en bij Alien 
8 zit je in een ruimteschip, waar je de 
boel draaiende moet zien te houden. 

Een beetje vreemd vinden wij het, dat 
beide cassettes, die rechtstreeks uit 
Engeland komen, niet willen laden op de 
JVC computet, die eveneens Engelse im¬ 
port is. Het is daarom mogelijk, dat 
op andere 'Import-dump-computers' dit 
spel ook niet te spelen zal zijn. 



Beeld * * * * 
Geluid * * * * 
Spelkwaliteit * * * * * 
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SORCERY 


Aackosoft overtreft zichzelf: alweer een 
goed spel, dat door deze firma in Neder¬ 
land is uitgebracht. Oorspronkelijk is 
het een produktie van het Engelse Virgin 
Games Ltd. Sorcery kost op cassette fl. 
39,50 en voor die prijs kon er wel een 
Nederlandse handleiding van af. Dit spel 
valt onder de categorie 'arcade adven¬ 
tures' en dat betekent, dat alles snel 
moet gaan. Je tijd is beperkt en wordt 
aangegeven door een boek, dat steeds 
kleiner wordt en in die tijd moet je een 
hoop , doen: in een kasteel van de ene 
kamer naar de andere vliegen, de juiste 
dingen verzamelen om 8 tovenaars te 
bevrijden, aangevallen worden door los- 
vliegende of -lopende engerds, je verde- 
digen, alles in een razend tempo. Gra- 
fisch een schitterend spel: elk van de 
50 schermen verschillend van opbouw in 
heel mode kleuren. 

Eigenlijk verder niet veel over te ver- 
tellen. Over zo'n spel moet je niet 
lezen, je moet het spelen. 
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Naar aanieiding van onze opmerkingen 
over dit programma in gids nummer 2 is 

het programma verbeterd en wordt het nu 
ook met een uitvoerige, en correcte, 
handleiding geleverd. 

NOGMAALS: 

-- T AS WORD 


Ook hier zijn de door ons opgemerkte 
fouten gecorrigeerd. Er wordt door 
Filosoft gewerkt aan een Tasword voor de 
MSX-2. 

Tasword is nu dusdanig dat de redaktie 
en de vaste medewerkers dit programma in 
gebruik hebben genomen voor het 
verwerken van het grootste gedeelte van 
de tekst. 



SHARK HUNTER 

Shark Hunter is geen nieuw spel, maar 
wel leuk. Het verhaalt speelt zich af in 
de poolstreek waar een eskimo zijn 
visnetten raoet beschermen tegen 
ijsschotsen en haaien. Kapotte netten 
kunnen gerepareerd worden maar tijdens 
dat repareren gaan de haaien en de 
ijsschotsen uiteraard gewoon door met 
hun vernielende werk. Zeker geen 
eenvoudig spel. Level 1 is al behoorlijk 
lastig. Het gooien -met speren- naar de 
haaien is een beetje frustrerend daar er 
alleen gedraaid kan worden in hoeken van 


45 graden. Beeld en geluid zijn best 
aardig en er wordt, voor de prijs van 
FI.49,00 , een heel leuk spel geleverd. 
(Electric software; cassette) 

Beeld* * * * 

Geluid* * * * 

Spelkwaliteit* * * * 

Foutafhandeling 
Gebruiksgemak 
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HOLE IN ONE PR0FFESSI0NAL 

Dit is een subliem spel voor de golf- 
fanaten. Het spel zelf is vrijwel gelijk 
als het vorige HOLE IN ONE. Het grote 
verschil zit in de constructieset. 
Hiermee kunnen eigen velden ontworpen 
worden. Alles wat in de standaard velden 
zit kan worden gebruikt. Zo kunnen 
allerlei lasige banen worden ontworpen 
met veel water, bomen, huisjes, zijwind 
enz. enz. 

Het programma wordt geleverd op 
cartridge en de beelden zijn uitstekend. 
Uiteraard zit er niet veel geluid bij. 
Alles is raenu-gestuurd en erg gebruiks- 
vriendelijk en dat is maar goed ook, 
want de handleiding is in het Japans 
geschreven (ja, ja, echt waar!). 
Gelukkig is het Japans al net zo 

doorspekt met Engelse worden als de 
Nederlandse taal dus er is nog aardig 
uit te koraen. 

Als je van golf houdt is dit een echte 
topper! De prijs is Fl. 95,00 en dat 
vind ik toch wel wat aan de hoge kant. 

De cartridge is van HAL Laboratory. 

Beeld ***** 

Geluid* * * * 

Spelkwaliteit* * * * * 

Foutafhandeling 
Gebruiksgemak 
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3-D KNOCKOUT 


Boksen tegen de computer, met de cursor- 
toetsen (ondanks dat in de handleiding 
staat dat het spel alleen werkt met een 

joystick), met zeer raatige beelden en 
geluiden en met een zeer zwak programma 
zodat, wanneer je weet op welk moment je 
het beste kunt slaan, je aan een stuk 
door alle rondes wint. 

Nee, dit heb ik wel eens beter gezien. 
3-D Knockout is van Alllgata Software en 
staat op cassette; de prijs is FI. 39,00 

Beeld * * * 

Geluid* * * 

Spelkwaliteit* * 

Foutafhandeling 
Gebruiksgemak 
Documentatie * * * * 

Prijs* * * * 

***** ZEER GOED 
**** GOED 
*** REDELIJK 
MATIG 
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RAID ON BUNGELING BAY 


Dit Is weer eens een spel volgens het 
bekende recept. Opstijgen en landen met 
een helicopter en al schietend en bommen 
werpend over het (scrollende) beeld 
manoevreren. De besturing is een beetje 
lastig een de beelden bewegen -ook weer 
een beetje- schokkerig. 

De kwaliteit van de beelden is echter 
prima en ook de geluiden zijn goed. Ook 


hier gaat het draaien weer alleen in 
hoeken van 45 graden; wat soms wel 
lastig is. Een moeilijk en mooi spel wat 
toch eerst even, b.v. in de winkel, 
bekeken met worden want het is een spel 
uit de serie 'dertien in een dozijn' en 
dit soort spellen lijkt erg op elkaar, 
Het spel wordt op cartridge geleverd 
door Sony en de prijs is FI. 69,00. 


BgsIcI * * # * * 
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JUMP JET 

Jump Jet is een flightsimulator rond de 
'Sea Harrier'. Dit is een Engels 
gevechtsvliegtuig dat vertikaal kan 
opstijgen en landen en dat recentelijk 
nog in de belangstelling heeft gestaan 
tijdens de Falkland-oorlog tussen 
Engeland en Argentinie. 

Dit spel begint dan ook op een 
vliegdekschip en het is de bedoeling, 
met behulp van de instrumenten, op te 
stijgen, de vijand te lokaliseren en te 
vernietigen, en weer te landen. Er zijn 
5 niveau's die varieren van een 
oefenronde met kalm weer tot een 
moeilijke ronde met veel vijandelijke 
vliegtuigen en zeer slecht weer met 
storm. Landen, opstijgen en vliegen 

moeten geregeld worden met de motoren, 
en diverse kleppen aan de romp en de 
vleugels van het toestel. Verder moet 
bijna alles met behulp van de radar 

gedaan worden. Pas als b.v. een 
vijandelijk vliegtuig gezien kan worden, 
kan zonder radar worden gewerkt. 
Uiteraard is de voorraad brandstof en 
munitie beperkt. 
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Jump Jet is een lastig spel, dat 
grafisch goed verzorgd is en dat garant 
staat voor vele uren speelplezier. De 
geluiden zijn ook goed maar de 
handleiding is niet in bet Nederlands. 
Er zijn meer van dit soort spellen, maar 
daar dit mijn eerste is, kan ik. geen 
vergelijking maken. De prijs is ook 
redelijk (FI. 49,00) en het spel wordt 
door Anirog Software geleverd op 
cassette. Deze cassette is van prima 
kwaliteit. 


Beeld * * * * 
Geluid * * * * 
Spelkwatlteit * * * * 
Foutafhandeiing 
Gebruiksgemak 
Documentatie * * * 

Prijs * * * * 

***** ZEER GOED 
**** GOED 
*#* REDELIJK 
** MAT1G 

* SLECHT 



HOPPER 

Hopper is geen nieuw spel, maar het 
bekende "FROGGER" dat inmiddels voor 
vrijwel alle computers leverbaar is. 
Weer eens een klassieker uit de 
automatenhallen die het altijd blijft 
doen; bij jong en oud. 

De bedoeling -is, om met een kikker, een 
rijweg over te steken en vervolgens een 
rivier. Elke ronde wordt raoeilijker en 
het spel is behoorlijk verslavend. Net 
als b.v. 'Packman" hoort dit spel bij 
iedere spelfanaat in het rijtje te 
staan. 0m de prijs hoef je het niet te 
laten liggen: slechts FI. 29,50 voor 
deze cassette van Aackosoft. 

Wei even opletten: Dit spel draait niet 
op iedere MSX machine; en in ieder geval 
niet op de JVC HC7GB. 


Beeld # # * * 
Geluid * * * * 
Spelkwaliteit * * * * * 
Foutafhandeiing 
Gebruiksgemak 
Documentatie 

Prijs * * * * * 

***** ZEER GOED 
**** GOED 
*** REDELIJK 
** MAT1G 

* SLECHT 



OH SHIT! 

Dit is dan de nieuwe naam voor de aloude 
Packman. De enige echte, zoals hij nu 
nog steeds in de speelhallen te vinden 

is. Het spel komt van Aackosoft en is 
van het type "Talkie"; met spraak dus. 
Deze spraak, die snel gaat verveien, is 
wel ten koste gegaan van de originele 
"wokka-wokka" geluiden. Jammer. Wat moet 
ik hier nog verder over schrijven? Ik 
denk dat iedereen "Packman" inmiddels 
wel kent. Deze cassette is weer extra 
goedkoop (FI. 29,50), dus gewoon 
aanschaffen! 


Beeld * * * * * 

Geluid* * * 
Spelkwaliteit* * * * * 
Foutafhandeiing 
Gebruiksgemak 
Documentatie 

Prijs* * * * * 

***** ZEER GOED 
.**»* GOED 

• ** REDELIJK 

** MATIG 

* SLECHT 
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L 0 G 0 
CENTRUM 
F D E 



nieuw: programmeren in het Nederiands met LOGO 


wat is logo ? 

LOGO: Dfi ALTERNATES VE NEDERLANDSE COMPUTERTAAL. 

Het is niet bekend bij hoevelen de home-computer al weer op zolder ligt omdat de spelletjcs 
vervelen en BASIC toch moeilijker blijkt dan doorde reclame wordt gesuggereerd Maar er 
is ten altematief waar tot voor kortnogal schamper over werd gedaan; LOGO. LOGO staat 
vooral bekend als een taaltje waarmec kinderen leuke plaatjes op het scherm kunnen 
tekenen* Dat is waar, maar ook de helft van de waarheid. LOGO is de meest krachlige 
taal die er op dit moment beschikbaar is voor home-computers, Krachtig wil in dit 
verband zeggen dat je je minder boeO: berig te houden met de problemen van de taal zelf en 
je je meer kunt concentreron op het probleem wat je met de computer wilt oplossen. 
Daarenboven: je hoeft je niet met de computer bezig te houden om te kunnen 
programmeren, De computet is er vooral om onze alledaagse en minder alledaagse 
problemen sneller op te lossen dan tot voor korL Voor de meeste van die problemen 
bestaan al lang de mooiste en minder mooie programmes, Het is goed dat iedereen 
leert snijden, maar slechts enkeien hoeven chirurg te worden, Wat wel 
plerierig is, is je alledaagse probleem zo te kunnen analyseren en formuleren dal daarvoor 
door ervaren programmeurs makkelijker een maatgesneden programma kan warden 
ge&dueven, Dit analyseren veieist een be ter kunnen denken, LOGO beoogt het leren 
beter te denken. Dat de uitvinder f Seymour Paper! daarbij kinderen voorop stelde is 
vrij logisch. Wie de jeugd heeft de toekomsL Kinderen zijn nog oorspronkelijke denkers. 
Maar hun eigen en vaak afwijkende kijk op de werkelijkheid, zoals zij die ervaren, word! 
door volwassenen meestal snel onderdmkt Zo wordt het kind van denkcr tot mcedenker. 
LOGO probeert het oorspronkelijke denken juist aan te moedigen* 

Kinderen leren de wereld kennen door hun omgeving te manipuleren. Hun 
taalontwikkeling is een antwoord op nieuwe situaties. Op een oorspronkelijke vaak 
verwairende wijze geven ze hieraan uiting, Dit afwijkend gedrag wordt vaak weggelachen 
en zo snel mogelijk vervangen door en uitleg van onze volwassen 'waarheid', Naarmate dit 
steeds vaker door het kind wordt ervaren, past het ervoor telkens te worden terecht 
gewczen, Daarmee wordt de drang naar origineel denken onderdrukt en is faalangst 
ontstaan, Van een onafhankelijk denkcr is het kind verworden tot een meedenker. De 
interne woede daaromtrent zal rich nog een tijdje uiten in de puberteit, maar ook die gaat 
voorbij nietwaar ? Er is een altematief: LOGO. Bij LOGO wordt het origineel 
creatieve denken aangemoedigd. Alles wat afwijkt van wat eigenlijk de bedoeling 
was, levert een onmidddlijke leerervaring op, waardoor je je verrijkt voelt Bij LOGO 
wordt je voor "fouten" niet bestraft, daar hoefje dus ook niet bang voor te zijn. Je hoeft er 
dan ook geen energie in te steken om dat te voorkomem Daardoor ben je beter 
gcconcentreerd In de LOGOwereld leien kinderen vanzelf begrijpen waarom de wereld op 
een bepaalde manier in elkaar ziL Wis- en natuurkundige principes worden langs geheel 
■ natuurlijke weg duidelijk en inzichtdijk, LOGO is voora! ook leuk, En wat leuk is 
wordt beter geleerd en onthouden en moedigt aan verder te gaan. Zo wordt de cieativiteit 
van kinderen niet gesmoord, maar wordt een intellectueel Mimaat geschapen, dat minder 
beheerst wordt door de criteria van goed en fout, van waarheid of on waarheid, Wat maakt 
LOGO non zo speciaal ? Het is een soort elektronischc zandbak, een knutseldoos van 
lijnen, hoeken, bogen , kleur, snelheid, richting, noten en woorden. Het is een nog 
kneedbare machine. Met een aantal basisbegrippen leren we de LOGOcomputer steeds 





weer nieuwe oegnppen me we weer georuixen voor weer meuwe: gemoouieem 
programmeren. Elke afgeronde module kun je gebruiken in een volgende module. Met 
LOGO ontdek je dat complete dingen niet meer zijn dan een samenstel van 
heel simpele dingen, Niet alleen voor kinderen is dat een openbaring maar ook een 
uitdaging. Met LOGO begin je alleen heel simpel, zo simpel dat er geen drempel is. Er is 
ook geen plafond, hooguif de eigen creativitet of de capaciteit van de computer, Dat LOGO 
al door jonge kinderen gebruikt kan worden wil niet zeggen dat het een kindertaaltje is, 
Intcgended, het is afgeleid van LISP en aangevuld met veel grafische mogelijkheden en 
muriek, LOGO voldoet ook aan alle eisen die informaticadeskundigen op dit moment aan 
een programmeertaal stellen. Dat is niet zo verwonderlijk. I.tL Basic werd LOGO pas 
bedacht nadat we wisten wat programmeren feitelijk is. LOGO is een taal om beter te 
leren denken, Het is door de ontwerpers bedoeld als een altematief voor de overhoor- cn 
lesmachines, die de leerling hoofdzakelijk voorgeprogrammeerde terugkoppeling en 
toetsen voorschotelen. Met andere woorden: oude wijn in nieuwe zakken: de leerling 
wordt gedwongen aan zekere normen te voldoen en daardoor fouten te maken. De 
belangstelling om icts te leren blijkt vooral bepaald te worden door een toenemende 
ervaring lets goed te doen. Wat je bij LOGO ook dod, het is nooit fout* Wat fout 
is bepaal je zelf, Een omgekeerde relatie dus. De leerling is de norm: hij onderwijst de 
computer en daar door rich zelf. Hij leert voor zichzelf problemen formuleren en oplossen, 
en tegelijkertijd doet hij ervaring op met de nieuwe technologic. Hij leert tevens wanneer de 
computer niet moet worden gebruikt Centraal idee achter LOGO is de computer 
als leeromgeving, zoals de straat dat is voor de ontwikkeling van de taal. In de 
elektronischc LOGOcomputer kan men grasduinen tussen woorden, letters, vormen 
klanken enz, 

Een echt LOGOsysteem kent vier werelden: 

1, De (schildpad-) tekenwereld: Pjoeter , een soort schildpad wordt met eenvoudige 
commando's over het scherm gestuurd, om het dier de creatieftse ontwerpen te laten 
maken. 

2. De wereld van de klonen, Aan de schildpad identieke wezentjes (ook zelf te 
ontwerpen), waarmee gemanipuleetti kan worden in kleur, snelheid, richting enz. 

3*De muziekwereld: het spelen met noten cn tonen, 

4. De woordwereld: het manipuleien van infonratie: cijfers, letters en woorden, En dat 
op een interne tieve manier, 

Elke wereld bestaat uit een aantal bouwstenen waarmee de computer nieuwe woorden kan 
worden geleerd, die weer gebruikt kunnen worden.. 

LOGO vervangt ook geen leerkrachten. LOGO geeft leerkrachten mogelijkhedeti het 
ondenrijs te modemiseren en op peil te houden, want er is alle luimte voor meer begaafden 
en het heeft alle djd voor de wat zwakkere. Voor de Commodore 64 is bij Malmberg een 
vertaalde versie beschikbaar, De LOGO Stichting Nederland werkt in Nijmegen aan een 
hoogwaardig origineel Nederiands altematief, wat t,z,t ook ter beschikking komt voor 
Apple IBM enz, Maar nu er sinds kort een volledig Nederlandse (MSX) versie 
beschikbaar is r (Philips) is het ideaie leermiddel binnen seders bereik.Oefenmateriaal en 
lesboeken rijn reeds beschikbaar. Niet alleen voor kinderen ,maar voor ieder die Basic niet 
meer ziet zitten zal LOGO een openbaring zijn, En in het bejaardentehuis hoeft niet alleen 

maar gekaart te worden. Ook geeft LOGO vrouwen en meisjes alle kansen om hun eigen 
informatica-knobbel te outdekkken-Voor verdere informade kan men terecht bij het 
LOGO CENTRUM EDE : 08380-21306, Daar wijst men u ook de weg naar de LOGO 
zomerkampen van de Stichting LOGO K uit Zwolle. 

Nijmegen, januari 1986, W JLTh. Heijster 







































































































































































































LOGO: DE STAND VAN ZAKEN V, 

Nederlandstalipe versie: 

-Philips MSX-LOGO (module): Hiervoor is voor ouders en leerkrachten een Doe Het Zelf 
Praktikum beschikbaar (inclusief woord- en lijstbewerkingen). 

-LCN LOGO: nog in het prenatale stadium. Hoogwaardige, originele Nederlandse LOGOversie met 
LISPachtige trekken. Om bij gereedkomen bericht hierover te ontvangen kan men zich op de lijst 
laten plaatsen: 080 328074. 

-Malmberg Logo voor de Commodore 64: Vertaalde Engelse versie, en daarom niet helemaal 
identiek. 

Engelstaliae versies: 

Voor Apple IBM BBC Acorn Sharp enz. 

Bij de STversies van Atari en bij Schneider wordt Dr.LOGO standaard bijgeleverd. 
Oefenmateriaal: 

Voor al deze LOGO'S zijn oefen/werkboekjes beschikbaar voor leerlingen vanaf 7 jaar. 
Literatuur: 

Seymour Papert: Computers en kinderen (Mindstorms) Uitgever: Bert Bakker 
H.Pinxteren & J.Ringelberg: LOGO, een inleiding. Aula Paperback 82. 

Vooral in het buitenland verschijnen steeds meer publicaties over LOGO. 

Wellicht het beste boektot op heden: Brian Harvey: Computer Sience LOGO style. 

ISBN: 0-262-58072-1 (paperback). 

Voor leerlingen vanaf 12 jaar verschijnt binnenkort: 

W.H.Th. Heijster: LOGOIogie, het LOGO Doe-boek voor de MSX en LCN Logo's in een losbladige 
uitgave. Uitgave LOGO CENTRUM EDE 

VERDEREINFORMATIE 

-HET LAATESTE NIEUWS uitde LOGOwereld, nieuwe boeken, toegepast LOGO enz.; 

-INFO 1 :Een uitgebreid overzicht van beschikbare literatuur, toepast LOGO enz.; 

-INFO 2:Een adreslijst van Logologen bij u in de buurt. 

-INFO 3:Engels-Nederlandse promitievenlijst. 

Ontvangt u na storting van F11voor elk eerste + FI 0,50 voor elk volgend info. 

Giro 4917628 LOGO CENTRUM EDE o.v.v. het vertangde. 



LOGO CENTRUM EDE 
Annadaal 96 
6715 JC Ede 
Tel. 08360-21306 
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Hier nog 3 spell sties van Rene Kluwen uit 
Rotterdam. Een dartspel, het overbekende 

Galgje en Wurm. Ale drie eenvoudige, maar 
altijd leuke spellen. Bij Wurm is, in 
verband met de gra-fische tekens, de gehele 
breedte van het papier gebruikt en niet, 
zoals gewoonlijk, een indeling in 
kolommen. Gewoon doortikken dus. Bij 
programma’s waarin de gra-fisohe tekens 
<CHR*(31) en lager) worden gebruikt is het 
erg moeilijk de listings in kolommen in te 
deien daar de computer voor deze tekens 2 
i.p.v. 1 teken aan de printer doorgee-ft 
zodat, bij kolommem, er vreemde "gaten^ in 
de listing optreden die door de lezers als 
spaties zullen worden overgenomen. 


Beeldscherms WIDTH 36 


10 CLS: PRINT “Speel niveau {1-93- ? 11 
* 

20 S=VAL(INPUTS(1)):IF S=0 THEN 20 
30 COLOR 15,6,is SCREEN 2s OPEN "GRP:" 

FOR OUTPUT AB #1 
40 LINE (0,0)“(255,10),1,BF 
50 LINE (0j178)-<255,192),1,BF 
60 LINE (35,40)-(38,60),1,BF 
70 PRESET (2,50):PRINT#1,10*S 
80 LINE (35,60)-(38,70),2,BF 
90 PRESET (2,65)sPRINT#i,30*S 
100 LINE (35,70)~(3B,75),3,BF 
110 PRESET (2,72)SPRINT#!,50*S 
120 LINE (35,75)“(38,85),2,BF 
130 PRESET (2,80):PRINT#1,30*S 
140 LINE (35,85)“(38,105),1,BF 
150 PRESET (2,90)SPRINT#!,10*S 
160 C(1)=10sC(2)=30sC(3)=50sC(4)=0sP 
=6 

170 PSET <70,0),1 SPRINT #1,"DART-SPEL 
>1 

180 PSET(20,180),Is PRINT #l,"SCOREs 
0 M 

190 PSET (120, 180) , 1 SPRINT #i,"PIJLEN 
; 6" 

200 SPRITE* < 0)=CHR*(12)+CHR*(18)+CHR 
*(34)+CHR*(255)+CHR*(34)+CHR*(18)+CH 
R*(12) 

210 SPRITE*(1)=CHR*(32)+CHR*(69)+CHR 
*(255)+CHR*(69)+CHR*(32 > 

220 Y=9:RY=S 

230 PUT SPRITE 0,(200,Y),1 

240 IF STRIG(l) THEN 280 

250 IF Y>—165 OR Y<=8 THEN RY=-RY 

260 Y=Y+RY 

270 GOTO 230 

280 P-P-l 

290 LINE (180,180)-(200,190),1,BF 
300 PSET (180,180),1 SPRINT #1,P 
310 FOR X=200 TO 38 STEP -1 
320 PUT SPRITE P+1,<X,Y),15,1 
330 NEXT X 

340 C=C (F'OINT (X , Y+2) ) 

350 IF C=0 THEN 410 
360 SC=SC+C*S 

370 LINE <70,180)-(90,190),1,BF 
380 PSET <70,180),1 SPRINT#!,SC 
390 IF P=0 THEN 470 
400 GDTO 220 

410 FOR X=37 TO -B STEP -1 
420 PUT SPRITE P+1,(X,Y),15,1 
430 NEXT X 

440 PUT SPRITE 1,<“B,“8) 

450 IF P=0 THEN 470 
460 GOTO 220 
470 SCREEN 0 

480 PRINT "U had"sSCu "punten. ** 


Beeldscherms WIDTH 36 


10 ? 

20 9 GALGJE 

30 - - 

40 * 

50 B*=""s CLSs KEYOFFs LOCATE 2,6:PRINT 
"WO0RD ? "5 

60 A*=INPUT*(1)sIFA*=CHR*(13)THENC*= 
B*sGOTO100 

70 IFA*=CHR*(8)ANDB*<>""THENPRINTCHR 
*(127);sB*=LEFT*(B*,LEN(B*)“l) 

80 IFA* >="a"ANDA*< = "z "THENA*=CHR*(AS 
C(A*)-32) 

90 IFA*< 11 A"ORLEN (B*) > 1 BORA*>"Z H THEN6 

0ELSEPRINT"#";;B*=B*+A* s GDTD60 

100 COLOR 15,7,7s SCREEN 2 

110 OPEN "GRPs" FOR OUTPUT AS #1 

120 LINE (40,10)“(200,150),4,BF 

130 PRESET (50,20>,4sPRINT#l, ,1 'GALGJE 
11 

140 L=LEN(B*):N=62sJ=0sK=0sM=0 
150 FDR 1=1 TO L 
160 PSET (42+1*8,60) 

170 NEXT I 

180 A*=INPUT*(1):H=0;IF A*<=" " THEN 
180 

190 FOR 1 = 1 TO LsIF A*=MID* <B*,1,1) 
THEN H=H+lsPRESET <40+1*8,50),4sPRIN 
T# 1, A*: MID* <B*,1,1)=“ 11 s PSET (42+1*8, 
60), 4 

200'NEXT Is IF H=0 THEN 230 
210 J=J+H: IF JOL THEN 180 
220 GOTO 390 

230 K=K+1:DN K GOSUB 270,280,290,300 
,310,320,330,340,350,360,370,380 
240 IF K MOD 3=0 THEN M=M+8:N=70 ELS 
E N=N+B 

250 PRESET (120+M,N),4s PRINT#1,A* 

260 GOTO 180 

270 LINE (70,85)-(70,130),lsRETURN 
2B0 LINE (70,85)-(85,85),i:RETURN 
290 LINE (65,130>-<80,130),1sRETURN 
300 LINE (70‘100)“(75,85),1sRETURN 
310 LINE (85,85)-(85,95),1s RETURN 
320 CIRCLE (85,99),4,1,,,1,4s RETURN 
330 LINE (85,103)-<B5,105),1sRETURN 
340 CIRCLE (85,112),7,1,,,2s RETURN 
350 LINE (83,107)-(79,105),lsRETURN 
360 LINE (87,107)-(91,105),1sRETURN 
370 LINE (83,117)-(80,123),1:RETURN 
380 LINE (87,117)-<90,123),1 
390 COLOR ,,1 
400 FOR I=! TO 10 

410 LINE (48,50)-<48+L*8,58),4,BF 
420 FOR J = 1 TO 50s NEXT J' 

430 PRESET (50,50),4sPRINTttl,C* 

440 FOR J = 1 TO 100s NEXT J 
450 NEXT I 

460 CLOSEsSCREEN 0:COLOR 15,4,4:GOTO 
50 


□UDE NUMMERS MSX-GIDS 

WE HEBBEN NOG WAT EXEMPLAREN VAN DE USX- 
BIDS NR.1 KUNNEN ACHTERHALEN! 

ALLE DRIE DE VORIGE NUMMERS ZIJN DUS NOG 
NA TE BESTELLEN DOOR OVERMAKING VAN FL. 
7,95 (PER NUMMER) OP GIRO: 5036011 T.N.V. 
J.HERPS, AMSTERDAM. TEL. 020-327464. 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 


CLS:KEY OFF:WIDTH 40:DEFINT A 
ON STOP GOSUB 1500:STOP ON 
LOCATE 0,9:Y=9 


PRINTTAB <Y); 

PRINTTAB(Y); 

PRINTTAB(Y); 

PRINTTAB(Y); 

PRINTTAB(Y); 

PRINTTAB(Y); 
PRINTTAB(Y) 
PRINTTAB(Y) 
PRINT CHR* < 
PRINT " Druk 
PRINT:PRINT 
PRINT:PRINT 
IF STRIG(0)= —1 
IF STRIG <1)=-l 
IF STRIG( 2)—-1 


230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 


360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 


530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 


"O 0 
"O D 
"O O 
"O 0 
”0 0 0 
”0 0 0 
; ”0 0 O 
5 " O 0 
11 ) 


O 

O 

D 

0 

0 

0 


O 


000 


0 0000 
0 0 o 

DO 0 
O 0000 
0 00 
0 0 0 
0 0 o 
o 


0 0 " 
00 00" 
0 O O" 
0 0 
0 


0 


0 


o 

0 


0 " 

0 " 

O” 

O" 

0 


II 


II 


II 


op de spatiebalk voor cursor-" 
toetsen" 

o-f op de vuurknop voor joystick. 
THEN 5S=0:GOTO 290 
THEN S5=l:GOTO 290 
THEN SS—2:GOTO 290 


II 


p 

* 


LOCATE 0 1*9 

1=1+1:IF*I>=30 THEN 1=0:PRINT SPACE*<80):GOTO 190 
FOR J =1 TO 200:NEXT J 
PRINTTAB <I);" O 

PRINTTAB(I) 5" 0 00" 

FOR J=1 TO 200:NEXT J 
LOCATE 0,19:PRINT SPACE*(B 0 ) 

LOCATE 0,20:1=1+2 
PRINTTAB(I) 5 " 000000 " 

GOTO 160 

DIM X(60),Y<60) 

CLS:WIDTH 37:RESTORE 
FOR 1=0 TO 8 

IF I/2=INT(1/2) THEN S(I )=2 ELSE S(I )=1 

READ SX(I),SY(I) 

NEXT I 
S(0)=3 

DATA 0,0,0,-1,1,-1, 

PN =0 

FOR 1=3 TO 21 


1 , 0 , 1 , 1 , 0 , 1 ,- 1 , 1 ,- 1 , 0 ,- 1,-1 


LOCATE 2,I:PRINT"I" 
LOCATE 24,I:PRINT*I" 
NEXT I 1 

FOR 1=2 TO 24 

LOCATE I,3:PRINT"-" 
LOCATE I,21:PRINT"-" 
NEXT I 

2,3:PRINT" r " 

m •> 


2,21:PRINT"1" 
24,21: PRINT"-* " 
13,12:PRINT"0" 


25,4:PRINT"HOOGST E » 
27,6:PRINT"SCORE:" 
33, 6 :PRINT HP 
25,8:PRINT"LANGSTE" 
26,10:PRINT"LENGTE: 
33,10:PRINTLL 


II 


LOCATE 

LOCATE 24,3:PRINT 
LOCATE 
LOCATE 
LOCATE 
TIME =0 
L=2 

LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE : 

X(1)=13 
Y ( 1)=12 

XP=INT(RND( 1 )*20)+3 
YP=INT(RND(1)*17)+4 
A*=STR*(INT(RND <1)*10)) 
PL=VAL(A*) 

LOCATE XP,YP:PRINT A* 

IF 5000-TIME< =0 THEN 1290 
LOCATE 25,14:PRINT "TIJD: 
LOCATE 30,14:PRINT 5000-TIME 
LET S=STICK(SS) 

ON S(S) GOSUB 730,770,720 

GOTO 660 

RETURN 

GX=SX(S) 

GY=SY(S) 

GOSUB 970 
RETURN 


C0KTR0LETELUN6 
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77® GX=0sGY=SY(S) 

780 GOSUB 970 

790 GX=SX<S):GY=0 

800 GOSUB 970 

810 RETURN 

820 GOSUB 1090 

830 FOR S—1TO 8 

840 O^-^D”+STR$ < S) 

850 PLAY ”T200V15L16” +Q*+ " AFD ” 

860 NEXT S 

870 L=L+1 

880 X(L)—X<L—1> —1 

890 Y(L)=Y<L-1> 

900 PN=PN+PL 

910 LOCATE 25,18:PRINT“SCOREs" 
920 LOCATE 25,20s PRINT"LENGTE:" 
930 LOCATE 32,18s PRINT PN 
940 LOCATE 32,20s PRINT L 
950 LOCATE X7. (L) , Y7. (L) s PRINT”0" 
960 GOTO 610 


970 KX=X<L+KK> 


980 KY=Y <L+KK> 

990 FOR K=L TO 2 STEP -1 
1000 X <K)=X7.(K-1) 

1010 Y (K) —V m /m (K“l) 

1020 NEXT K 


1050 X(1)=X(1)+GX 


1060 

1070 

1080 


Y(1)=Y(1)+GY 

IFX(1)=XP+1ANDY <1)=YPTHENB 20 

IFVPEEK((Y(1)*40)+X(1)+2)< >32THEN 1130 


1090 

1100 

1110 

1120 

1130 

1140 

1150 


LOCATE X (1) , Y< 1) SPRINT"®*' 

LOCATE X (2) , Y<2) sPRINT H 0’‘ 

LOCATE KX,KYSPRINT” " 

RETURN 
GOSUB 1090 

IF X <1)=2 OR X <1> =24 OR Y<1)=3 OR Y<1>=21 
PLAY”T200O5V15L16CEGCEGCEGCEGCEGCEGCEGCEG 
CEGCEG” 

1160 LOCATE 4,12:PRINT”STOMMELING«” 

1170 LOCATE 4,14s PRINT”JE BIJT IN'JE 
1180 LOCATE 4,16:PRINT"STAART! ! !” 


EIGEN 


1190 GOTO 1370 

1200 FOR H=15 TO 1 STEP -1 

1210 V$~ ,, V”+STR$<H) 

1220 PLAY"T200" 

1230 PLAY V* 

1240 PLAY"05L16C#E A” 

1250 NEXT H 

1260 LOCATE 3,12:PRINT"JAMMER,JE BENT TEGEN” 
1270 LOCATE 3,14s PRINT”DE MUUR AANGELOPENM” 
1280 GOTO 1370 


1290 PLAY”7200” 

1300 l OCATF 30 14»PRINT 0 

1310 Z $= "L9V1404C03B04CED#EGF#G05C04B05C" 
1320 Y$="L9V1304GF#GED#EC03B04CD03B6" 

1330 PLAY Z$+Y$+Z$ 


Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Totaal: 


1290 - 255 
1300 - 106 
1310 - 124 
1320 - 118 
1330 - 60 
1340 - 62 
1350 - 172 
1360 - 205 
1370 - 148 
1380 - 54 
1390 - 80 
1400 - 159 
1410 - 51 
1420 - 84 
1430 - 12 
1440 - 140 
1450 - 84 
1460 - 168 
1470 - 118 
480 - 88 
1490 - 106 
1500 - 30 
20056 


GOTO 1200 


1340 PLAY"T100L3V1505EV13DV11C"„”T100L3V15D4GV13FVHE” 
1350 LOCATE 3,12:PRINT”HELAAS,UW SPEELTIJD” 

1360 LOCATE 3,14:PRINT” IS OP. 11 

1370 IF L>LL THEN LL=L:LOCATE 33,10sPRINT LL 
1380 IF PN>HP THEN HP=PN:LOCATE 33, 6 s PRINT HP 
1390 FOR X = 1 TO 1000s NEXT X 
1400 CLS 

1410 LOCATE 2,7sPRINT”Wi 1 t U het nog een keer proberen ?” 
1420 LOCATE 13,10:PRINT ,f <VUUR>” 

1430 FOR 1=1 TO 1000 

1440 IF STRIG <SS)=-l THEN 300 

1450 NEXT Is CLSs LOCATE 8,7 

1460 PRINT "Hot duurde te lang.” 

1470 PRINT:PRINTT AB( 10 ) 5 "Stopt U maar.” 

1480 LOCATE 0,20 

1490 KEY ON:WIDTH 37s END 

1500 CLSsGOTO 1490 
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CASSETTE/DISK GEBRUIK 

Steeds apnieuu word ik teleurgesteld 
na het intikken van sommige Listings. 
Ik ben nl. een DISK-gebruiker. 

Kennelijk is dat nogal zeldzaam in 
riSX-land. Er wordt tenminste vaak in 
het geheel geen rekening gehouden met 
deze categorie. 


□ok in BDEKEN Cmet listings? komt soms 
hetzelFde euvel voor ! 

Uaak zijn deze boeken flink prijzig en 
ik vind dat er dan tenminste buiten op 
het kaft een vermelding moet staan 
dat het betreffende boek aileen voor 
cassette gebruikers geschikt is. 

Disk gebruikers kunnen ze bij het oud 
papier voor de voetbalclub leggen! 


Wat gebeurt er als je na een avond 
tikwerk (de ervaring leert al snel : 
eerst SAUEN!) het resultaat wilt gaan 
bekijken van een net valtaoid program: 
een 'Hang up' , het Opnieuw Dpstarten 
van de computer of Cals alles goBd 
werkt en er is een Save option inge- 
bouwd het zelfde resutaat?. Qm dan 
maar te zwijgen over de enkele keer 
dat Je vergeet eerst te Seven!! 

Wat is hier aan de hand ? 

Del een Cassette-gebruiker die, een 
programma met ( al is het maar een 
piep klein stukje) MACHINETAAL 
schrijft of hier en daar een klein 
FOKE’je gebruikt , houdt er GEEN 
rekening mee dat de hoogste adressen 
bij Disk-gebruikers al bezet zijn door 
Disk-Basic!! Dat maakt in de meeste 
gevallen 4367 bytes uit en in mijn 
geval Cik werk met een Spectra Widen 
Drive) zelfs 6459 bytes uit. Hieruit 
volgt dat elk adres boven de 59000 
voor de Disk-gebruiker erg gevaarlijk 


C.n.F. ESSENBURG 

Ja, daar ben ik het helemaal mee eens. 
Hoewel, toch weer niet helemaal. 

Zoals je ziet heb ik in dit blad al een 
programma aangepast voor diskdrive. Alle 
door de redaktie geschreven programma’s 
zullen, in het vervolq. zoveel moqelijk voor 
beide systemen -diskette / cassette- geschikt 
zijn. Onze medewerkers en de inzenders roep 
ik hierbij op hetzelfde te doen. Het HIMEM- 
adres -bij disk gebruik- is 57976 <$cHE27B>. 

Dit adres is te verkrijgen door de volgende 
opdracht: 

PR I NT PEEK (?<HFC4A) +256IPEEK (&HFC4B) 

Bij Spectravideo liqt dit lets lager, maar 
door deze machine op een andere manierop te 
starten (opstartmethode voor 1 drive) komt 
ongeveer dezel-fde ruimte vrij en kan 
bovenstaand adres ook voor deze machine 
gebruikt worden. Dit zou allemaal in de 
hand!eiding van de Spectravideo te vinden 
moeten zijn. Ik heb dit van een SVI- 
gebruiker doorgekregenj mocht dit niet juist 
zijn, dan hoor ik dit graag. 


« 


Nu denken de cassette-gebruikers 
misschien dat die enkele Diskgebruiker 
dan pech heeft, maar zij moeten zich 
toch realiseren dat er steeds meer 
disk gebruikers komen zeker als MSX-8 
goed op de markt is, want die heeft 
een ingeboucle Diskdrive. 

Ueel cassette gebruikers die een fijn 
spel hebben of een uiterst gemakke- 
ijke Utility, wear ze nu zo fijn mee 
uierken, zullen dan merken dat 2e die 
allemaal irt de vuilnisemmer kunnen 
smijten, want ze zijn voor Disk ge¬ 
bruikers totaal waardeloos ! 

Waar blijft de hSX-SPIRIT bij onze 
mede MSX-ers!!! 

WiJ hebben onze machine toch allemaal 
gekocht om de grate onderlinge uit- 
wisselbaarheid ! 

Cassette gebruikers wees aardig tegen 
uui Disk broers en zusters ! WiJ willen 
ook graag profiteren van deze vaak 
zeer nuttige en fijne programma’s. 

Want het gebruik van een paar Poke’s 
en een stukje machinetaal maakt een 
programme vaak een stuk sneller. 

Misschien is er onder de lezers iemand 
die west welke adressen nog veilig 
zijn voor de (SUI) Disk. 

Graag publicatie hiervan,zodat alle 
programmeurs dit in hun toekomstige 
programma’s kunnen gebruiken. Ik hoop 
dat van nu af elke DSX-er van ALLE 
programma’s kan profiteren. 


Ik maak echter wel een uitzondering voor 
specifieke cassette programma’s. B.v. een 
data-base voor cassette gebruikers zal niet 
aangepast worden voor diskdrive. Zo’n 
progamma heeft alle geheugenruimte heel hard 
nodig en voor diskdrive gebruikers zijn veel 
betere programme's -met een veel grotere 
opslaqcapaciteit en Random files- te 
bedenken. 

Ik werk momenteel -voor de uitgeverij- aan 
een abonneebestand (3500 abonnees per 
diskette), een financiele administratie en 2 
archiefprogramma"s (1 voor tijdschriften en 
1 voor geluidsbanden/cassettes). Deze 
programma’s werken allemaal met 2 drives, 
maar als ze klaar zijn zal ik voor de 6ids 
l~drive versies van deze programme’s maken. 
Deze kunnen de cassette- bezitters dan wel 
weer niet gebruiken, maar zo krjgen beide 
partijen wel programma’s die voor beide 
systemen optimaal geschikt zijn (voor 
cassette is al een tijdschriften archief 
qeplaatst in nr.l dus de diskdrivers komen 
□an als eerste aan de beurt). Mocht er, van 
de kant van onze lezers, eerder al een 
dergelijk programma binenkomen dan plaatsen 
we ait uiteraard. 


Tot slot, en als voorbeeld, wijs ik nog even 
op ST-File in dit nummer. Wanneer we met dit 
programma een N.A.W. bestand maken kunnen we 
met veel moeite c.a. 100 adressen kwijt. Als 
we dan ook nog rekening moeten houden met de 
diskdrive- bezitters dan gaan we hier nog 
zo’n 20 adressen van afknabbelen. Hetzelfde 
programma -aangepast voor diskgebruik- kan 
makkelijk 2000 adressen kwijt. Deze zitten 
dan ook nog in Random files (wat bij cassette 
met kan) en zijn dus direkt opvraagbaar. 
Aparte programma’s lijkt mij dus de mooiste 
oplossing. Bij alle andere programma"s zal ik 
zoveel mogelijk rekening houden met de 
diskdrivers en hoop dat onze inzenders 
hetzelfde doen. 


Alfred Debels. 
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MUSI WRITER - ROMPACK FL. 129,— 

Musiwriter is een programma, dat speciaal 
gemaakt is voor de muziekliefhebber, in 
het bijzonder voor degene, die zelf mu- 
ziek coraponeert en met die composities 
wil experimenteren. 

Het programma wordt geleverd op cartrid¬ 
ge, werd geproduceerd door AViC Inc. en 
gedistribueerd door Rittor Music Europe 
Ltd. 

Voor het gebruik zijn nodig -buiten de 
MSX-computer-: een video monitor (even- 
tueel met externe speakers), een data 
recorder om opgenomen stukken te SAVEn, 
audio componenten en een grafische prin¬ 
ter . 

Om te zien of een leek ook met dit pro¬ 
gramma zou kunnen omgaan, werd de beoor- 
deling overgelaten aan een superleek, 
namelijk mij. Voordat ik met het program¬ 
ma aan de slag ging, kon ik geen noot 
muziek lezen en was het me een raadsel, 
hoe ik een wijsje in de machine moest 
krijgen, dat ook nog het aanhoren waard 
was * 

Met behulp van de encyclopedie en een 
oude gitaarcursus leerde ik de grondbe- 
ginselen van het notenschrift, waarna de 
vrij uitgebreide handleiding doorgenomen 
werd. Al snel was duidelijk hoe het een 
en ander ingevoerd moest worden en mijn 
keus viel op de spiritual 'Old Black 
Joe' . 



Voor het invoeren van de muziekstukken en 
de verdere bewerkingen ervan, heeft men 
de keuze uit verschiliende beeldschermen, 
die met behulp van de funktietoetsen 
gekozen kunnen worden. Op de foto het 

beeldscherm, dat gebruikt wordt voor de 
invoer van de noten. De noten worden 
gekozen door middel van de cursortoetsen, 
waarna met de returntoets de gewenste 
noot ingevoerd wordt. Bovenin het scherro 
wordt het aantal noten bijgehouden, zodat 
men altijd een overzicht heeft van wat er 
ingevoerd is. Teveel of te weinig invoe¬ 
ren is niet mogelijk; in zo'n geval wordt 
de input niet geaccepteerd. 

Op deze manier was het vrij gemakkelijk 
'Old Black Joe' op de balken te krijgen 
en even later klonk het lied in de 
oorspronkelijke vorm door de kamer. 

Nu begon echter het leuke werk, want dit 
is niet het enige, dat met MusiWriter 
gedaan kan worden. Het programma bevat 
eigenlijk een complete synthesizer, waar- 
mee je zo'n liedje bijvoorbeeld verschil¬ 
iende ritmes mee kunt geven: wals, disco, 
ballad etc. met of zonder achtergrond- 
drum. Tevens is er keuze uit diverse 
muziekinstrumenten, waarmee je het kunt 
laten uitvoeren: piano, mandoline enz. Af 
en toe herken je gewoon het hele stuk 
niet meer. 

Voor de muziekliefhebber is dit een pro¬ 
gramma, dat ontzettend veel mogelijkheden 
biedt. Het enige, dat ik persoonlijk 
jammer vind, is dat je de muziekstukken 
alleen binnen het programma kunt gebrui- 
ken en dat het bijvoorbeeld niet mogelijk 
is met Musiwriter introotjes voor eigen 
computerprogramma's of spelletjes te ma- 
ken. 

JOSE HERPS 

Beeld* * * * 

Geluid* * * * 

Spelkwaliteit 
Foutafhandeling* * * * 
Gebruiksgemak* * * * 
Documentatie* * * * 

Prijs* * * 

***** ZEER GOED 
***+ GOED 
+ ** REDELIJK 
** MATIG 

* SLECHT 
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LISTING CONTHtOLE PROGRAMMA 2 


LISTING TESTER 2 

DEZE LISTING TESTER IS VAN TOEPASSING OP 
DE LISTINGS VANAF MSX GIDS NR* 3 

DE LISTINGS UIT GIDS 1 EN 2 NIET WET 
DEZE TESTER CONTROLEREN1 

De Listing tester is bedoeld als 
hulpmiddel voor de lezers, die de 
programma listings uit ons blad 
overnemen. Met dit programma publiceren 
wij een kontrole-telling van de 

programmaregels en, wanneer u een 
programma heeft overgenomen, kunt u dan 
-ook weer met ditzelfde programma- een 
kontrole-telling uitvoeren. Zijn de 
getailen achter de regel hetzelfde, dan 
is de kans erg groot, dat het programma 
goed is overgenomen. Zeker is dit echter 
niet, want wanneer bijvoorbeeld twee 
letters in een regel worden omgewisseld, 
dan is de telling toch goed. 

MSX-BASIC kent twee statements voor 
regels die alleen kommentaar bevatten: 
namelijk het REM-statement en regels die 
beginnen met *. Beide regels hebben over 
het algemeen geen invloed op de werking 
van het programma en daarom wordt de 
tekst van deze regels niet meegeteld. 
Wanneer de REM regels wel belangrijk 
zijn (b.v. bij machinetaal routines, die 
tijdens de loop van het programma op 
deze regels worden geplaatst) dan wordt 
dit uitdrukkelijk vermeld. 

De tester heeft hoge regelnummers, zodat 
hij aan het eind van de meeste 
programma's geplaatst kan worden.' U 
toetst dit programma in en kontroleert 
het met zichzelf door regelnummer 65170 
te laten vervallen. 

Is het programma goed, dan moet dit met 
de opdracht SAVE "CAS:TESTER" op 
cassette worden gezet. {Wel eerst regel 
65170 weer opnemenl!). 

Het programma wordt dan als ASCII-file 
op de band gezet. 

Niet wegschrijven met "CSAVE"!! 

U gebruikt verder dit programma als 
volgt: 

U tikt het programma, dat u wilt hebben 
in en zet dit eerst op cassette. Niet 
eerst RUNen, want bij sommige fouten kan 
een programma blijven 'hangen' en vaak 
moet dan alles opnieuw worden ingevoerd! 
Daarna kan met MERGE "CAS:TESTER" het 
kontrole programma achter het 
ingetoetste programma worden gezet, 
waarna met RUN 65000 het kontroleren kan 

beginnen. Er is een keuze tussen de 
uitvoer naar een printer en naar het 
beeldscherm. In principe zal de printer 
worden gebruikt, maar bij kleine 
programma 1 s, of voor het geval dat er 
nog slechts enkele regels nagekeken 
hoeven te worden, kan het ook via het 
beeldscherm. 

Voor het laden van het testprogramma 
moet de instruktie 'MERGE* worden 



gebruikt en niet LOAD1 (Dus MERGE 
"CAS:TESTER"}. Bij gebruik van LOAD komt 
de Listing tester namelijk in plaats van 
het reeds in het geheugen aanwezige 
programma te staan en dan valt er niets 
meer te testen. 

Let goed op bij DATA- regels. Wanneer 
hier getailen omgewisseld worden, zal de 
tester toch een goede telling geven! Bij 
het omwisselen van letters in BASIC- 
instrukties wordt wel een fout 
geconstateerd. 

Een controle telling wordt alleen bij 
grote -of ingewikkelde- programma's 

geplaatst. 


65000 
65010 
65020 
65030 
65040 
65050 
65060 
65070 
6 5030 

65090 

65100 


" * LISTING TESTER 2 * 

* Door Alfred Debels * 
' * (c)1986 De MSX Gids * 

* Amsterdam * 

" *********************** 


CLS:CLEAR:SCREEN 0:WIDTH 40:PRINT 
PRINT "Weergave via beeldscherm of 
printer?" 

PRINT :PRINT "B of P?: " 

X$ as INKEY$: IF X$<>"B" AND X$<>"P" IH 
EN 65100 


65110 START-32769! 

65120 RG=START+2: T=0 

65140 VR=PEEK(START)+256*PEEK(START+l) 

65150 NR=PEEK(RG)+256*PEEK(RG+1) 

65160 IF VR=0 THEN 65290 
65170 IF NR>=65000! THEN 65290 
65180 S=0:FOR I=RG+2 TO VR-1 
65190 A-PEEK(I) 

65210 IF A=I43 THEN I=VR:G0T0 65240 
65230 S- S4A:NEXT 
65240 S=SMOD256 
65250 T=T+S 

65260 IF X$=*’B” THEN PRINT USING "Regel: 

##### - ###";NR,S:GOTO 65280 
65270 LPRINT USING "Regel: ##### - ###";N 
R,S 

65280 START-VR: RG=VR+2:GOTO 65140 

65290 IF X$="P" THEN 65310 

65300 PRINT:PRINT "Totaal: *';T: END 


65310 

LPRINT 

: LPRINT "Totaal: 

T: END 


CONTROLETELL1NG 


Regel: 

65180 

— 

201 

LIST!NGTESTER 



Rege!: 

65190 

* 

96 

Regel: 

65000 

- 

58 


Rege1: 

65210 

- 

234 

Regel: 

65010 

- 

58 


Rege t: 

65230 

- 

164 

Rege1: 

65020 

- 

58 


Rege1: 

65240 

- 

173 

RegeI: 

65030 

- 

58 


Rege1: 

65250 

- 

219 

Rege1: 

65040 


58 


Regel: 

65260 

- 

199 

Rege1: 

65050 

* 

58 


Rege1; 

65270 

- 

45 

Rege1: 

65060 

- 

58 


Rege1: 

65280 


136 

Rege1: 

65070 

- 

151 


Rege1: 

65290 

• 

239 

Rege1: 

65080 

- 

129 


Rege1: 

65300 

- 

233 

Rege1: 

65090 

- 

32 


Rege1: 

65310 

* 

33 

Rege1: 

65100 

- 

5 






Rege1: 

65110 

- 

23 

LET OP!!! 

Totaal 

: 3330 


Rege1: 

65120 

— 

200 

REGEL 65170 IS NIET 

GETESTI 


Rege1: 

65140 

- 

133 

DEZE REGEL 

MOET DUS 

MET 



Rege1: 

65150 

- 

147 

HET 'BL0TE 

OOG* NAGEKEKEN 



Rege1: 

65160 

- 

137 

WORDEN 
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de mini gids 

In deze rubrfek kunnon onze lezers adverten+les 
plaa+sen, mlts NIET VAN COMMERCIELE AARD! Handela- 
ren kunnen onze advertentletarIeven aanvragen. 

De redak+le behoudt zlch het recht voor adverten- 
ttes voor deze rubrlek te welgeren. Inzendlngen 
kunnen gestuurd worden naar Postbus 10252, 1001 EG 
Amsterdam en dienen voorzlen te zijn van naam, 
adres en evt* telefoonnummer. Advertentles met 
a Ileen postbusnummer of antwoordnummer worden nlet 
opgenomen. 


GEZOCHT: 

Printer software; zowel grafische, leuke 
als nuttige programme's. Printer IBM- 
compatible of daarop lijkend. Evt. kos- 
ten worden vergoed. 

A.J. v.d. Berg, Esdoornlaan 43, 

3881 ER PUTTEN. 


AANGEBODEN: 

REVOX A77 tapedeck 4 sp. 9.5/19 cm. 

Incl, 15 tapes 26cm.(prof, kwaliteit), 

18 cm (div. kwaliteiten), NAB 
stofkap en div. toebehoren. 
een koop FI. 1200,00 
ST 3500 AM/FM Tuner FI. 100,00 


25 tapes 
adaptor, 
Alles in 
TECHNICS 


JVC JA-S8 versterker. 2x70 Watt, 
phono, 2x AUX, 2x tape met dubbin 
tuner, 5-kanaals equaliser en 2 f 




2x 

lx 


Voor- eindversterk 
FI. 200,00. Tel 


ontkoppelbaar. 
020-327464 


CASSETTES 


CASSETTES 

De programma's uit de MSX-Gids zijn ook op 
cassette leverbaar. 

Cassette nr.3 bevat alle programma'a van 
Gids nr. 3 plus een complete 'STUNTVOGEL' 
waarin de velden 7,8 en 9 zijn opgenomen. 

Cassette nr. 4 bevat alle programma's uit 
dit blad. 

De cassettes kosten FI. 15,00 per stuk 
(incl, verzendkosten). 

Voor Belgie is de prijs BFr. 2B0.- 
Giro: 909515 t.n.v. A.Debels, Amsterdam. 
Voor Belgies Rek.nr. 235-0430464-87 bij de 
Generale Bankmij. te Hasselt t.n.v. 
J.Herps, Amsterdam. 

Vergeet bij de bestelling niet het nummer 
te vermelden. 

HAAST?... Haal de cassette dan zelf bij: 
MSX S0FTSH0P, Vespuccistraat 48, 1056 SM 

Amsterdam, Bij de Softshop is ALLEEN DE 
LAATSTE cassette verkrijgbaar !!\ 


MSX GEBRUIKERSGROEPEN 


HCC WSX gg 
Postbus 51 
2630 AA Nootdorp 

MBX gg. West-Brabant 
Pijnboomstraat 10 
4731 AT Oudenbosch 


YAMAHA CX5 gebruikersgroep 

E /a Coen van Splunder 
iepenbroek 87 
5991 PT Baarlo 
Tel. 04707-3348 

TIL8URG5E MSX GEBRUIKERSGROEP 

Azuurweg 92 

5044 KD Tilburg. 


"De Leke" 

t.a.v. Fred De Winne 
Lekestraat 33 
9900 Eeklo Belgie 


MUG msx gebruikersgroep 
Christiaan Rakow 
Minervalaan B1 
1077 NT Amsterdam 
Tel, 020-766493 





abonnement is voordeliger 


en je mist geen nummers! 


EEN ABONNEMENT KOST FL. 40,= PER 6 NUMMERS EN IS TE 

DOOR OVERMAKING VAN DIT 8EDRAG OP GIRO 5036011 T.N.V. 
AMSTERDAM. 


VERKRIJGEN 
J.HERPS TE 


VOOR BELGIE: BFR. 750 OP BANKREKENINGNUMMER 235-0430464-87 BIJ 
DE GENERALE BANKMAATSCHAPPIJ TE HASSELT T.N.V. J.HERPS, 
AMSTERDAM. 


Girobeta alkaarten of Eurocheques (vergeet niet het nummer op de 
achterzijde in te vuLLen) kunnen gestuurd worden naar: 

Uitgeverij HERPS, Postbus 10252, 1001 EG Amsterdam. 

Tel. inlichtingen over abonnementen en losse nummers: 020-327464 
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GAMES 



ADVENTURES 

Rollerball 

FL 

64,00 

Worm in paradise 

Boulderdash 

FL 

39,00 

Diary A.Mole 

Jet bomber 

FL 

34,50 

Mandragore 

Roadfighter 

FL 

69,00 

Emerald Isle 

Lazy Jones 

FL 

45,00 

Return to Eden 

Sourcery 

FL 

39,00 

Snow ball 

Mouser 

FL 

69,00 

Alien 8 

Kung Fu 2 

FL 

69,00 

Knight lore 

Soccer 

FL 

69,00 

Beyond 

Eggerland 

FL 

79,00 

Death valley gold 


Vespuccistraat 48 
(bij het Mercatorplein) 

Amsterdam 

Dagelijks geopend van 9.00 tot 18.00 
Maandags vanaf 13.00 
Koopavond tot 21.00 


B0EKEN 


FL 

49,00 

MSX 2 Handboek 

FL 

56,50 

FL 

49,00 

Machinetaal handboek 

FL 

34,50 

FL 

89,00 

Verder uitgediept 

FL 

23,90 

FL 

35,00 

Pascal handboek 

FL 

52,50 

FL 

49,00 

CP/M operating system 

FL 

38,75 

FL 

49,00 

De prograrmneertaal C 

FL 

25,00 

FL 

49,00 

Forth 

FL 

31,00 

FL 

49,00 

Computers en printers 

FL 

27,50 

FL 

25,00 

Logo 

FL 

39,50 

FL 

39,00 

Red book 

FL 

45,00 


SERIEUZE PR0GRAMMA 1 S 


Schaakprograrma FL 

45,00 

Eddy 2 


FL 

76,00 

Draws 


FL 

48,00 

Tasword 

ned. 

FL 

95,00 

fasword 

eng. 

FL 

65,00 

Viditel 


FL 

299,00 

C ++ 


FL 

185,00 

Devpac 


FL 

89,00 

Pascal 


FL 

135,00 

Drie in 

een 

FL 

34,50 


BJNNENKORT MSX 2 SOFTWARE 


RUIM 300 PROGRAM'S V00RRADIG 


TEVENS ALLE MSX 80EKEN IN VOORRAAD 




VRAAG SCHRIFTELIJK ONZE CATALOGUS AAN 
MSX SOFT POST 
Vespuccistraat 48 
1056 SM Amsterdam 


VOOR POSTORDERS KUNT U BELLEN 
MAANDAG T/M VRIJDAG van 10.00 tot 13.00 
telefoon: 020-123206 


bij vooruit betaling geen verzendkosten 

rembourskosten worden wel in rekening 
gebracht 























































































































handboeken 

leerboeken 

software 



BASIC 


prijs f 49,50 
ISBN 90 6398 100 7 

De steun en toevertaat van zowei de pro¬ 
fess! onete programmeur a Is de amateur. 


DISK 


prijs f 29,50 
ISBN 90 6398 407 3 

Basic in verband met de schi/veneenheid; 
aanvulUng op bovengenoemd deei 

QUICK DISK 

prijs f 23,50 
ISBN 90 6398 2 54 2 

Behandeling van de quick disk komman- 
do's;aanvuiting op Basic handboek, 

ZAKBOEKJE 

prijs f 19,50 
ISBN 90 6398 888 5 

A He hetangrijke gegevens voor Basic- en 
mach in e taa Iprogrammeurs. 


DOS 


prijs f 26,50 
ISBN 90 6398 674 2 

Behan deling van het eerste professione/e 
MSX operating system: het MSX DOS , 

PRAKTIJK 


PROGRAMMES 


prijs f 24,50 
ISBN 90 6398 437 5 

De gegeven programme's zijn van uitgebreid kommentaar voorzien. 


Rsm. 

trunks en tips 
deel 2 

A.C-J, Gmntnld 


MSX truuks en tips deel 1 
ISBN 90 6398 900 8, f 24,90 
MSX truuks en tips deel 2 
ISBN 90 6398 340 9, f 24,90 

Boordevoi met tips, handige en 
uiterst krachtige programme's 
op grafisch, muzikaal en admi- 
nistratief gebied. in dee! 2 ieert 
u ook programme's beveitigen. 




INTROT APE cassette f 35,75 
MSX wordt op een vriendeiijke 
en onderwijzende manier vanuit 
nui bij de gebruiker geihtrodu - 
ceerd. 

DRAWS cassette f 48,- 
Tekenprogramma; al binnen 10 
minuten uweerste technische of 
kreatieve tekening op uw MSX 
computer. 

SCRIPT cassette f 58,50 
Een volledig menu-gestuurdene- 
der/andstalige tekstverwerker. 




trunks en tips 

dm! 1 


A.C-J. GrotnmM 



leerboeken 

De serie MSX leerboeken gee ft een 
komplete kursus MSX-BASIC pro- 
grammeren in drie delen. Deze zijn 
gericht op de beginnende program¬ 
meur. De gebruikte voorbeelden zijn 
zo praktisch mogeiijk gekozen, waar- 
door ai in een vroeg stadium bruik- 
bare programme's kunnen worden 
gemaakt. ieder deei werkt toe naar 
het voorbeeidprogramma dat achter 
in het deei is opgenomen. De op- 
drachtenboekjes zijn apart verkrijg- 
baar. Zowel voor gebruik op school 
als voor individueel gebruik zuiien 
deze boeken erg nuttig zijn. 


izm 


LEERBOEK 



DEEL 1 


UieSSSL ** ► eRl-AI-rFi ' Hit T Qtd Htl XF" 


LEERBOEK 





•jssst:. . nr t c*=r, hf i x* 


MSX Basic leerboek deel 1 

ISBN 90 6398 649 1, prijs f 24,50 

Opdrachten bij deel 1 

ISBN 90 6398 596 7, prijs f 11- 

Programmacassette bij deel 1 

ISBN 90 6398 656 4, prijs f 32,50 

MSX Basic leerboek deel 2 

ISBN 90 6398 769 2, prijs f 24,50 

Opdrachten bij deel 2 

ISBN 90 6398 556 8, prijs f 11 - 

Programmacassette bij deel 2 

ISBN 90 6398 566 5, prijs f 32,50 

MSX DOS leerboek deel 3 

ISBN 90 6398 519 3, prijs f 24,50 

Opdrachten bij deel 3 

ISBN 90 6398 516 9, prijs f 11- 

Programmaeassette bij deel 3 

ISBN 90 6398 526 6, prijs f 32,50 


Vraag even om onze uitgebreide gratis catalogus 
van computerboeken en software. Al onze uitgaven zijn 
ook verkrijgbaar in de boekhandel en computershop. 

uitgeverij STARK - TEXEL 

postbus 302 -1794 ZG Oosterend tel. 02223 - 661 



BASIC HANDBOEK 


A.C.J.Groeneveld 


IN VOORBEREIDING: 

MSX 2 BASIC Handboek 
ISBN 90 6398 221 6 ± f 56,50 
MSX 2 Uitbreidings Handboek 
ISBN 90 6398 222 4 ± f 37,50 
MSX 2 Toepassings Handboek 
ISBN 90 6398 223 2 ± f 29,75 
MSX 2 Zakboekje 
ISBN 90 6398 224 0 ± f 27,50 
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